oh man
da steht while not eof(f) do
und du machst daraus einfach nur
Delphi-Quellcode:
i := 0;
while not eof(f) and (i < Zeilennummer)do
inc(i);
..
der Rest bleibt Gleich.
Deine Zeilennumer ist dann die die du haben willst.
wenn deine TXT file so viele zeilen hat. anderfalls wird die Letzte Zeile zurückgegeben.