Fehlersuche bei Listen

[Klaus01]

Zitat von Tastaturkürzel:

Also der Fehler ist mitlerweile verschwunden...aber das war er ja eben auch bereits. Ein letzten Versuch mach ich noch, danach danke ich euch und lasse es auf sich beruhen denke ich.
Also meine Textdatei beinhaltet ca. 18 einträge. Wenn ich das ganze mir nun im Programm über die nun bekannte Ausgabe ausgeben lasse, bekomme ich 7 einträge richtig (glaube ich^^) angezeigt. Die 8.Ausgabe ist leer und danach passiert um genau zu sein NIX. Ne idee?

Deine Datei hat 18 Zeilen, pro Listenelement ließt Du 5 Zeilen ein

Delphi-Quellcode:

FOR k:=0 TO (ANZ) DO 
    BEGIN 
      readln(test,a);
      readln(test,b); 
      readln(test,c); 
      readln(test,d); 
      readln(test,e); 
      FuegeHintenAn(a,b,c,d,e,kopf,l); 
    END;

Macht also 3 Listenelemente. Und einen Lesefehler weil Du über das Dateiende hinausließt.
Mußt Du das mit TextDateien machen, es würde meines Erachtens einfacher
mit Records zu arbeiten, ein Listenelement = 1 Datensatz(Record).

Edit1: Aus der Delphi Hilfe: Note: FileSize can't be used on a text file.
Da hat Meniskusschaden wohl einen guten Ansatz geliefert.

Grüße
Klaus