@DeddyH:
Zumindest habe ich keine solche Vorfahrklasse gefunden. Das war nämlich auch mein erster Ansatz.
@Neutral General:
Deine Alternative Methode würde mir ja am besten gefallen, nur leider scheint es keine Vorfahrklasse THash zu geben.
[EDIT]
Ah, ok mir ist es grad wie Schuppen von den Augen gefallen. Die Lösung sieht so aus:
Delphi-Quellcode:
var S : String;
Hash: TDecHash; // <--
begin
case Combobox1.ItemIndex of
0 : Hash := THash_MD5.Create;
1 : Hash := THash_SHA1.Create;
end;
S := Hash.CalcFile('Dateiname', TFormat_HEX);
ShowMessage(S);
end;