ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBMessages.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBMessages.pas (file contents):
Revision 55 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

# Line 60 | Line 60
60   {                                                                        }
61   {************************************************************************}
62   unit FBMessages;
63 + {$IFDEF MSWINDOWS}
64 + {$DEFINE WINDOWS}
65 + {$ENDIF}
66  
67   {$IFDEF FPC}
68 < {$mode objfpc}{$H+}
68 > {$mode delphi}
69   {$codepage UTF8}
70   {$ENDIF}
71  
# Line 237 | Line 240 | type
240        ibxeInvalidParamCount,
241        ibxeInvalidVariantType,
242        ibxeServiceRunning,
243 <      ibxeUniqueRelationReqd
243 >      ibxeUniqueRelationReqd,
244 >      ibxeInterfaceNotSupported
245        );
246  
247 < function GetErrorMessage(ErrMess: TIBClientError): string;
247 > function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
248  
249   resourcestring
250    { generic strings used in code }
# Line 433 | Line 437 | resourcestring
437    SInvalidVariantType = 'Invalid variant type';
438    SServiceRunning = 'Cannot start a new service while an existing service is running';
439    SUniqueRelationReqd = 'All Output Fields must derived from the same table';
440 +  SInterfaceNotSupported = 'Interface not supported; Guid %s not found';
441  
442   const
443    IBErrorMessages: array[TIBClientError] of string = (
# Line 595 | Line 600 | const
600      SInvalidParamCount,
601      SInvalidVariantType,
602      SServiceRunning,
603 <    SUniqueRelationReqd
603 >    SUniqueRelationReqd,
604 >    SInterfaceNotSupported
605    );
606  
607 < function GetErrorMessage(ErrMess: TIBClientError): string;
607 > function GetErrorMessage(ErrMess: TIBClientError): AnsiString;
608   begin
609    Result := IBErrorMessages[ErrMess];
610   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines