241 |
|
ibxeInvalidVariantType, |
242 |
|
ibxeServiceRunning, |
243 |
|
ibxeUniqueRelationReqd, |
244 |
< |
ibxeInterfaceNotSupported |
244 |
> |
ibxeInterfaceNotSupported, |
245 |
> |
ibxeCharacterSetExists, |
246 |
> |
ibxeUnknownUserCharSet, |
247 |
> |
ibxeUninitializedInputParameter |
248 |
|
); |
249 |
|
|
250 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |
441 |
|
SServiceRunning = 'Cannot start a new service while an existing service is running'; |
442 |
|
SUniqueRelationReqd = 'All Output Fields must derived from the same table'; |
443 |
|
SInterfaceNotSupported = 'Interface not supported; Guid %s not found'; |
444 |
+ |
SCharacterSetExists = 'Character set "%s" is already defined'; |
445 |
+ |
SUnknownUserCharSet = 'Unknown user character set "%s"'; |
446 |
+ |
SUninitializedInputParameter = 'SQL Param No. %d (%s) is uninitialised'; |
447 |
|
|
448 |
|
const |
449 |
|
IBErrorMessages: array[TIBClientError] of string = ( |
607 |
|
SInvalidVariantType, |
608 |
|
SServiceRunning, |
609 |
|
SUniqueRelationReqd, |
610 |
< |
SInterfaceNotSupported |
610 |
> |
SInterfaceNotSupported, |
611 |
> |
SCharacterSetExists, |
612 |
> |
SUnknownUserCharSet, |
613 |
> |
SUninitializedInputParameter |
614 |
|
); |
615 |
|
|
616 |
|
function GetErrorMessage(ErrMess: TIBClientError): AnsiString; |