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 389 by tony, Wed Jan 19 13:34:42 2022 UTC vs.
Revision 390 by tony, Sat Jan 22 16:15:12 2022 UTC

#	Line 126 | Line 126 | type
126		function GetSQLMessage: Ansistring;
127		public
128		constructor Create(aOwner: TFBClientAPI; prefix: AnsiString='');
129	+	constructor Copy(src: TFBStatus);
130		function StatusVector: PStatusVector; virtual; abstract;
130	–	procedure Assign(src: TFBStatus); virtual;
131		function Clone: IStatus; virtual; abstract;
132
133		{IStatus}
134	+	function InErrorState: boolean; virtual; abstract;
135		function GetIBErrorCode: TStatusCode;
136		function Getsqlcode: TStatusCode;
137		function GetMessage: AnsiString;
#	Line 640 | Line 641 | begin
641		FIBDataBaseErrorMessages := [ShowIBMessage];
642		end;
643
644	<	procedure TFBStatus.Assign(src: TFBStatus);
644	>	constructor TFBStatus.Copy(src: TFBStatus);
645		begin
646	+	inherited Create;
647		FOwner := src.FOwner;
648		FPrefix := src.FPrefix;
649		SetIBDataBaseErrorMessages(src.GetIBDataBaseErrorMessages);

Diff Legend

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