paar fragen zum 'Aus Datei lesen' mit readLn

[Andreas13]

Hallo kagi3624,
wenn Du das Einlesen des Inhalts der Textdatei komplett "zu Fuß" machen willst (mußt) und noch keine Speicherschutzblöcke wie "Try ... Except" hast (Delphi 6), dann gehst Du wie im folgenden Beispiel vor:

Delphi-Quellcode:

VAR
  f : TextFile; // symbolische Dateivariable
  s : String; 

CONST
  MyTxtDatei = 'D:\Delphi6\TextDatei.txt'; // Speicherort Deiner Textdatei

Begin
  AssignFile(f, MyTxtDatei); // verknüpft die Dateivariable f mit Deiner Datei. Diese Verbindung wird erst mit CloseFile(f) aufgehoben.

  {$i-}       // Fehlermeldungen ausschalten
    Reset(f); // öffnet eine vorhandene Textdatei zum Lesen
  {$i+}       // Fehlermeldungen einschalten

  If IOResult <> 0 Then 
  Begin
    ShowMessage('Datei konnte nicht gefunden werden!'); 
    Exit;  // Routine oder Programm verlassen
  End;

  While NOT EoF(f) Do
  Begin
    ReadLn(f, s);
    MachWasMit(S);
     ...
  End;

  CloseFile(f); // schließt die geöffnete Datei

...
End.

Viel Erfolg!
Gruß, Andreas