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

Comparing ibx/branches/udr/client/2.5/FB25ClientAPI.pas (file contents):
Revision 389 by tony, Tue Jan 18 12:05:35 2022 UTC vs.
Revision 390 by tony, Sat Jan 22 16:15:12 2022 UTC

# Line 84 | Line 84 | type
84    public
85      function Clone: IStatus; override;
86      function StatusVector: PStatusVector; override;
87 +    function InErrorState: boolean; override;
88    end;
89  
90    { TFB25ClientAPI }
# Line 347 | Line 348 | begin
348   end;
349  
350   function TFB25Status.Clone: IStatus;
350 – var aResult: TFB25Status;
351   begin
352 <  aResult := TFB25Status.Create(nil);
353 <  aResult.Assign(self);
354 <  Result := aResult;
352 >  Result := TFB25Status.Copy(self);
353   end;
354  
355   function TFB25Status.StatusVector: PStatusVector;
# Line 359 | Line 357 | begin
357    Result := @FStatusVector;
358   end;
359  
360 + function TFB25Status.InErrorState: boolean;
361 + begin
362 +  Result := StatusVector^[0] > 0;
363 + end;
364 +
365  
366   { TFB25ClientAPI }
367  

Diff Legend

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