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

Comparing ibx/branches/udr/client/3.0/FB30ClientAPI.pas (file contents):
Revision 385 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 386 by tony, Tue Jan 18 12:05:35 2022 UTC

# Line 51 | Line 51 | type
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;
# Line 277 | Line 279 | begin
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

Diff Legend

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