zeilen in txt datei zählen

[GuenterS]

Ich habe gerade mal nachgesehen was denn so in den Sourcen von TListBox beim Aufruf von LoadFromFile passiert.

Es wird ein TFileStream erzeugt, welcher den gesamten Text einliest, welcher auf #10 bzw #13 geparst wird und der der Items Eigenschaft hinzugefügt wird.

Ich hab mir dann angeschaut wie TFileStream denn dann den Inhalt der Datei liest und festgestellt, dass diese sich einer kernel32 Funktion, nämlich ReadFile bedient.

Leider habe ich keine Implementierung zu Readln gefunden, da weiß anscheinend nur der Compiler selbst da dort eingebaut, wie diese funktionieren. Es wird vermutlich aber auch auf #10 bzw. #13 geparst werden.

Demzufolge könntest Du das ganze auch in einen Filestream schreiben und ihn rückwärts durchgehen bis du 15 mal #10 bzw. #13 gefunden hast, die Strings dazwischen entsprechen dann deinen Zeilen.