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 379 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

# Line 255 | Line 255 | type
255      ['{8bdccfe9-d552-446b-bd82-844ca264455d}']
256      function getRawValue: Int64;
257      function getScale: integer;
258 <    function clone(aNewScale: integer): IFBNumeric;
258 >    function AdjustScaleTo(aNewScale: integer): IFBNumeric;
259      function getAsString: AnsiString;
260      function getAsDouble: double;
261      function getAsBCD: TBCD;
# 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 958 | Line 959 | type
959      ['{6a0be233-ed08-4524-889c-2e45d0c20e5f}']
960      procedure GetEvents(EventNames: TStrings);
961      procedure SetEvents(EventNames: TStrings); overload;
962 <    procedure SetEvents(EventName: AnsiString); overload;
962 >    procedure SetEvents(EventName: string); overload;
963      procedure Cancel;
964      function ExtractEventCounts: TEventCounts;
965      procedure WaitForEvent;
# 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