1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Der Quelltext sieht so aus:var
  InFile : TextFile;
  Wert1  : integer;
  Wert2  : double;
  Wert3  : double;
  Rest   : string;

begin
assignFile (Infile, 'MeineDatei.txt');
reset (Infile);
while not eof (InFile) do
  begin
  readln (InFile, Wert1, Wert2, Wert3, Rest);

    // an dieser Stelle werden die eingelesenen Variablen verarbeitet

  end;
CloseFile (InFile);
end;