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; |
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 |
|
|
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; |
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; |