51 |
|
function GetIBMessage: Ansistring; override; |
52 |
|
public |
53 |
|
destructor Destroy; override; |
54 |
+ |
procedure Assign(src: TFBStatus); override; |
55 |
+ |
function Clone: IStatus; override; |
56 |
|
procedure Init; |
57 |
|
procedure FreeHandle; |
58 |
|
function InErrorState: boolean; |
279 |
|
inherited Destroy; |
280 |
|
end; |
281 |
|
|
282 |
+ |
procedure TFB30Status.Assign(src: TFBStatus); |
283 |
+ |
begin |
284 |
+ |
inherited Assign(src); |
285 |
+ |
FStatus := (src as TFB30Status).GetStatus.clone; |
286 |
+ |
end; |
287 |
+ |
|
288 |
+ |
function TFB30Status.Clone: IStatus; |
289 |
+ |
var aResult: TFB30Status; |
290 |
+ |
begin |
291 |
+ |
aResult := TFB30Status.Create(nil); |
292 |
+ |
aResult.Assign(self); |
293 |
+ |
Result := aResult; |
294 |
+ |
end; |
295 |
+ |
|
296 |
|
procedure TFB30Status.Init; |
297 |
|
begin |
298 |
|
if assigned(FStatus) and Dirty then |