Inhalt der textdatei löschen

[marabu]

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