ViewVC Help

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

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

Comparing ibx/branches/udr/client/IB.pas (file contents):
Revision 381 by tony, Sat Jan 15 00:06:22 2022 UTC vs.
Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

#	Line 327 | Line 327 | type
327		function GetMessage: AnsiString;
328		function CheckStatusVector(ErrorCodes: array of TFBStatusCode): Boolean;
329		function GetIBDataBaseErrorMessages: TIBDataBaseErrorMessages;
330	+	function Clone: IStatus;
331		procedure SetIBDataBaseErrorMessages(Value: TIBDataBaseErrorMessages);
332		end;
333
#	Line 1613 | Line 1614 | constructor EIBInterBaseError.Create(aSt
1614		begin
1615		inherited Create(aStatus.Getsqlcode,aStatus.GetMessage);
1616		FIBErrorCode := aStatus.GetIBErrorCode;
1617	<	FStatus := aStatus;
1617	>	FStatus := aStatus.Clone;
1618		end;
1619
1620		constructor EIBInterBaseError.Create(ASQLCode: Long; AIBErrorCode: Long;

Diff Legend

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