paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Marked extra constructor as overloaded

Browse Source 
git-svn-id: trunk@13467 -
This commit is contained in:
michael 2009-07-27 07:22:38 +00:00
parent b09cd7ed16
commit d50d1a655a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/idea.pp
View File

@ -82,7 +82,7 @@ Type
Protected Protected
Procedure CreateCryptKey(Const S : String; Var Key : TIDEACryptKey); Procedure CreateCryptKey(Const S : String; Var Key : TIDEACryptKey);
Public Public
Constructor Create(AKey : TIDEAKey; Dest: TStream); Constructor Create(AKey : TIDEAKey; Dest: TStream); overload;
Property Key : TIDEAKey Read FKey; Property Key : TIDEAKey Read FKey;
end; end;
@ -90,7 +90,7 @@ Type
TIDEAEncryptStream = Class(TIDEAStream) TIDEAEncryptStream = Class(TIDEAStream)
public public
Constructor Create(Const AKey : String; Dest: TStream); Constructor Create(Const AKey : String; Dest: TStream); overload;
Destructor Destroy; override; Destructor Destroy; override;
function Write(const Buffer; Count: Longint): Longint; override; function Write(const Buffer; Count: Longint): Longint; override;
function Seek(Offset: Longint; Origin: Word): Longint; override; function Seek(Offset: Longint; Origin: Word): Longint; override;
@ -101,7 +101,7 @@ Type
TIDEADeCryptStream = Class(TIDEAStream) TIDEADeCryptStream = Class(TIDEAStream)
public public
Constructor Create(Const AKey : String; Dest: TStream); Constructor Create(Const AKey : String; Dest: TStream); overload;
function Read(var Buffer; Count: Longint): Longint; override; function Read(var Buffer; Count: Longint): Longint; override;
function Seek(Offset: Longint; Origin: Word): Longint; override; function Seek(Offset: Longint; Origin: Word): Longint; override;
end; end;