---

Gibt es im TDL einen Bezeichnung wie in Pascal der das Ende einer Datei erkennt, wie EOF End Of File,
um eine while Schleife zu beenden:
folgendes funktioniert mit EOF nicht:

task robi;
var
a,b,maxi,suche : integer;
arrray[100] : integer;

begin
maxi=100; 
  for suche=1 to maxi do
    while EOF do
    read (a,b,cr) from ext.dat;
    array[suche] = b;
    end while;
  end for;
end;
end task;

------------------
sim

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP