Einzelnen Beitrag anzeigen

Benutzerbild von St.Pauli
St.Pauli

Registriert seit: 26. Dez 2004
351 Beiträge
 
Delphi 7 Personal
 
#31

Re: .: CheckIt! :.

  Alt 22. Dez 2005, 16:20
Du must einfach nur den Pfad der Funktion übergeben, z.B. 'C:\Test.txt' - also als String

Edit:

Delphi-Quellcode:
...
VAR Datei1, Datei2 : string;
begin
Datei1 := 'C:\Test1.txt';
Datei2 := 'C:\Test2.txt';

IF (HashFile(Datei1) = HashFile(Datei2)) THEN
    ShowMessage('Dateien sind gleich');
Gruß St.Pauli
  Mit Zitat antworten Zitat