ViewVC Help

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

root/public/ibx/branches/udr/client/FBClientAPI.pas

Comparing ibx/branches/udr/client/FBClientAPI.pas (file contents):
Revision 385 by tony, Mon Jan 17 15:56:35 2022 UTC vs.
Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

#	Line 115 | Line 115 | type
115
116		{ TFBStatus }
117
118	<	TFBStatus = class(TFBInterfacedObject)
118	>	TFBStatus = class(TFBInterfacedObject, IStatus)
119		private
120		FIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
121		FPrefix: AnsiString;
#	Line 127 | Line 127 | type
127		public
128		constructor Create(aOwner: TFBClientAPI; prefix: AnsiString='');
129		function StatusVector: PStatusVector; virtual; abstract;
130	+	procedure Assign(src: TFBStatus); virtual;
131	+	function Clone: IStatus; virtual; abstract;
132
133		{IStatus}
134		function GetIBErrorCode: TStatusCode;
#	Line 637 | Line 639 | begin
639		FIBDataBaseErrorMessages := [ShowIBMessage];
640		end;
641
642	+	procedure TFBStatus.Assign(src: TFBStatus);
643	+	begin
644	+	FOwner := src.FOwner;
645	+	FPrefix := src.FPrefix;
646	+	SetIBDataBaseErrorMessages(src.GetIBDataBaseErrorMessages);
647	+	end;
648	+
649		function TFBStatus.GetIBErrorCode: TStatusCode;
650		begin
651		Result := StatusVector^[1];

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines