ソースを参照

fcl-base: blowfish2: Remove unnecessary destructor from TBlowFish2Stream

Oleg Latov 4 ヶ月 前
コミット
3874fb7725
1 ファイル変更0 行追加7 行削除
  1. 0 7
      packages/fcl-base/src/blowfish2.pp

+ 0 - 7
packages/fcl-base/src/blowfish2.pp

@@ -76,7 +76,6 @@ Type
   Public
     Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual;
     Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual;
-    Destructor Destroy; override;
   end;
 
   TBlowFish2EncryptStream = Class(TBlowFish2Stream)
@@ -1044,12 +1043,6 @@ begin
   FPos:=0;
 end;
 
-destructor TBlowFish2Stream.Destroy;
-
-begin
-  FreeAndNil(FBF);
-  Inherited;
-end;
 
 { ---------------------------------------------------------------------
     TBlowFish2EncryptStream