Subversion Repositories checksum-tools

Rev

Rev 2 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit Common;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes;
  7.  
  8. type
  9.   TChecksum = class(TObject)
  10.   public
  11.     checksum: string;
  12.   end;
  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.  
  22. implementation
  23.  
  24. end.
  25.