Prüfsummen erstellen (DEC)

[DeddyH]

Wenn das Klassenmethoden sind kann man sich die Instanzen in der Tat sparen. Einfach aufrufen und glücklich sein .

Und wenn nicht, dann aber eher so:

Delphi-Quellcode:

var S : String;
    Hash: TDecHash; // <--
begin
  Hash := nil;
  case Combobox1.ItemIndex of
    0 : Hash := THash_MD5.Create;
    1 : Hash := THash_SHA1.Create;
  end;
  if Assigned(Hash) then
    try
      S := Hash.CalcFile('Dateiname', TFormat_HEX);
      ShowMessage(S);
    finally
      Hash.Free;
    end;
end;