Dateien vergleichen

[sofl]

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]