Eof

Parameter

(F : TFileClass) : Boolean;

Beschreibung

Die Funktion prüft, ob das Dateiende erreicht ist. Eof(F) gibt true zurück, wenn sich die aktuelle Dateiposition hinter dem letzten Zeichen der Datei befindet oder wenn die Datei leer ist. Andernfalls wird false zurückgegeben.

Hinweis

Eof schlägt fehl, wenn die Datei F nur zm Schreiben geöffnet wurde. Eof kann beispielsweise nicht für Dateien eingesetzt werden, die mit Append oder Rewrite geöffnet wurden.

Beispiel

try
  AssignFile(F1, 'c:\FileName1.txt');
  Reset(F1);
  AssignFile(F2, 'c:\FileName2.txt');
  Rewrite(F2);
  try
    while not Eof(F1) do
    begin
      Ch := ReadLn(F1);
      Write(F2, Ch);
    end;
  finally
    F2.Free;
    F1.Free;
  end;
  except
    ShowMessage('Exception');
  end;
  //...
end;

Beispiel

 var 
  F1, F2 : TFileClass;
  Ch     : String;
 Begin
  //...
   try
     AssignFile(F1, 'c:\FileName1.txt');
     Reset(F1);
     AssignFile(F2, 'c:\FileName2.txt');
     Rewrite(F2);
       while not Eof(F1) do
         begin
           Ch := ReadLn(F1);
           Write(F2, Ch);
        end;
   finally
     F2.Free;
     F1.Free;
   end;
   except
     ShowMessage('Exception');
   end;
  //...
 End;