172 |
|
ibxeTransactionNotOwned, |
173 |
|
ibxeIntegerOverflow, |
174 |
|
ibxIntegerUnderflow, |
175 |
< |
ibxeScaleCannotBeChanged |
175 |
> |
ibxeScaleCannotBeChanged, |
176 |
> |
ibxeStringOverflow |
177 |
|
); |
178 |
|
|
179 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
297 |
|
SIntegerOverflow = 'Integer overflow when scaling numeric'; |
298 |
|
SIntegerUnderflow = 'Integer underflow when scaling numeric'; |
299 |
|
SScaleCannotBeChanged = 'Unable to change numeric field scale'; |
300 |
+ |
SStringOverflow = 'String overflow. String Length %d exceeds permitted maximum (%d)'; |
301 |
|
|
302 |
|
const |
303 |
|
IBErrorMessages: array[TIBClientError] of string = ( |
397 |
|
STransactionNotOwned, |
398 |
|
SIntegerOverflow, |
399 |
|
SIntegerUnderflow, |
400 |
< |
SScaleCannotBeChanged |
400 |
> |
SScaleCannotBeChanged, |
401 |
> |
SStringOverflow |
402 |
|
); |
403 |
|
|
404 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |