Hmmmmm.
Also der bis jetzt gezeigte Code scheint ja insoweit OK zu sein,
aber dennoch klingt es so, als wenn beim 3. oder auch schon 2. Durchlauf irgendwas "zerschossen" würde, was dann spätestens beim 3. Aufruf zu einem Fehler führt.
PS: (auch wenn es erstmal mit dem Problem noch nicht viel zu tun hat)
Ist InfoArray zufällig ein
array of TInfos
?
Wenn ja, dann könntest du auch direkt
InfoArray[DatIndex] := InfoDatensatz;
machen,
oder sogar gleich
Delphi-Quellcode:
SetLength(Infoarray, DatIndex+1);
Read(InfoDatei, InfoArray[DatIndex]);