ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/FBMessages.pas

Comparing ibx/trunk/fbintf/client/FBMessages.pas (file contents):
Revision 47 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