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

Comparing ibx/branches/udr/udr/source/FBUDRController.pas (file contents):
Revision 384 by tony, Sat Jan 15 00:06:22 2022 UTC vs.
Revision 385 by tony, Mon Jan 17 15:56:35 2022 UTC

# Line 931 | Line 931 | begin
931  
932      end;
933      except on E: Exception do
934 <      FController.FBSetStatusFromException(E,status);
934 >      begin
935 >        Result.dispose;
936 >        Result := nil;
937 >        FController.FBSetStatusFromException(E,status);
938 >      end;
939      end;
940   end;
941  
# Line 1012 | Line 1016 | begin
1016        end;
1017      end;
1018      except on E: Exception do
1019 <      FController.FBSetStatusFromException(E,status);
1019 >      begin
1020 >        Result.dispose;
1021 >        Result := nil;
1022 >        FController.FBSetStatusFromException(E,status);
1023 >      end;
1024      end;
1025   end;
1026  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines