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

Comparing ibx/branches/udr/client/IB.pas (file contents):
Revision 385 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