Hallo meik,
falls du nur eine Zeile aus der Textdatei entfernen möchtest und die Textdatei nicht zu groß ist, dann solltest du dir diese Funktion anschauen:
Delphi-Quellcode:
function RemoveLine(fn: TFileName; index: Integer): string;
begin
with TStringList.Create do
try
LoadFromFile(fn);
if index < 0 then
index := Count - index;
Result := Strings[index];
Delete(index);
SaveToFile(fn);
finally
Free;
end;
end;
// var line: string;
// line := RemoveLine('test.txt', 0);
Beim Aufruf von RemoveLine('test.txt', 0) wird dir der Inhalt der ersten Zeile zurückgeliefert und diese Zeile aus der Textdatei entfernt.
Grüße vom marabu