Hallo gutz,
Textdateien werden wegen ihrer variablen Struktur in der Regel nur sequentiell verarbeitet.
Je nach Größe einer Textdatei liest man nur die gewünschten Zeilen ein
// this space intentionally left blank
oder man liest alle Zeilen und verwirft die ungewollten später.
Delphi-Quellcode:
procedure ReadLines(const fn: TFileName; s: TStrings; count: Integer);
begin
s.BeginUpdate;
try
if count = 0
then s.Clear
else s.LoadFromFile(fn);
if count < 0 then
while s.Count > count do
s.Delete(0);
if count > 0 then
while s.Count > count do
s.Delete(count);
finally
s.EndUpdate;
end;
end;
Getippt und nicht getestet.
Grüße vom marabu