Subversion Repositories checksum-tools

Rev

Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 6
Line 1... Line 1...
1 
unit Common;
 1 
unit Common;
2 
 
 2 
 
3 
interface
 3 
interface
4 
 
 4 
 
- 
 
 5 
uses
- 
 
 6 
  Classes;
- 
 
 7 
 
5 
type
 8 
type
6 
  TChecksum = class(TObject)
 9 
  TChecksum = class(TObject)
7 
  public
 10 
  public
8 
    checksum: string;
 11 
    checksum: string;
9 
  end;
 12 
  end;
10 
 
 13 
 
- 
 
 14 
  TCheckSumFile = class(TObject)
- 
 
 15 
  public
- 
 
 16 
    constructor Create(AFileName: string); virtual; abstract;
- 
 
 17 
    procedure ToStringList(slOut: TStringList); virtual; abstract;
- 
 
 18 
    function SingleFileChecksum(AFileName: string): string; virtual; abstract;
- 
 
 19 
    function MergeLine(AFileName, ACheckSum: string): string; virtual; abstract;
- 
 
 20 
  end;
- 
 
 21 
 
11 
implementation
 22 
implementation
12 
 
 23 
 
13 
end.
 24 
end.