소스 검색

fcl-base: blowfish2: Remove unnecessary destructor from TBlowFish2Stream

Oleg Latov 9 달 전
부모
커밋
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