Sorry, wenn ich mich jetzt blöd anstelle, aber bei mir funktioniert es nicht ganz:
Ich konnte die
Unit erfolgreich unter Uses einbinden
. Kompilieren lässt sich das Pogramm auch schon.
Wenn ich jetzt folgenden Code habe, meckert er:
Delphi-Quellcode:
AssignFile(datei1,edit1.text);
Reset(datei1, 1);
AssignFile(datei2,edit2.text);
Reset(datei2, 1);
repeat
if (HashFile(Datei1) <> HashFile(Datei2)) THEN
begin
label5.caption:=Inttostr(strtoint(label5.caption)+1);
end;
until eof(datei1) or eof(datei2);
closefile(datei1);
closefile(datei2);
[Error] Incompatible types: 'String' and 'file'
filetostr gibt es nicht, oder?
