/trunk/Windows/Common.pas |
---|
2,6 → 2,9 |
interface |
uses |
Classes; |
type |
TChecksum = class(TObject) |
public |
8,6 → 11,14 |
checksum: string; |
end; |
TCheckSumFile = class(TObject) |
public |
constructor Create(AFileName: string); virtual; abstract; |
procedure ToStringList(slOut: TStringList); virtual; abstract; |
function SingleFileChecksum(AFileName: string): string; virtual; abstract; |
function MergeLine(AFileName, ACheckSum: string): string; virtual; abstract; |
end; |
implementation |
end. |