Hi leute, hab ma ene einfache Funktion geschrieben die einfach nur zeigt ob zwei Dateien gleich sind oder nicht.
Delphi-Quellcode:
function compari(dat1: string;dat2: string): Boolean;
var
F, F2: TextFile;
S, S2: string;
begin
AssignFile(F, dat1);
AssignFile(F2, dat2);
Reset(F);
Reset(F2);
repeat
Readln(F, S);
Readln(F2,S2);
until (SeekEof(F) = True) or (S <> S2);
IF (S <> S2) or (SeekEof(F) <> SeekEof(F2)) THEN Result := False
else
Result := True;
CloseFile(F);
CloseFile(F2);
end;
hoffe das ich irendwem damit helfen konnte
bye
[edit=Luckie]Delphi-Tags. Mfg, Luckie[/edit]