Inhalt der textdatei löschen

[Nuclear-Ping]

Warum so kompliziert?

Delphi-Quellcode:

uses SysUtils, Classes, Dialogs;

// ...
var
  sl: TStringList;

begin
  // Instanz von TStringList anlegen ...
  sl := TStringListr.Create;
  try
    // Datei laden
    sl.LoadFromFile ('C:\...\datei.txt');

    // erste Zeile ausgeben
    ShowMessage (sl[0]);

    // erste Zeile löschen (Achtung: alle anderen Zeilen "rutschen" nach oben!)
    sl.Delete (0);
  
    // Datei wieder speichern ...
    sl.SaveToFile ('C:\...\datei.txt');

    // StringList freigeben
    FreeAndNil (sl);
  except
    // ... Fehler beim Laden?
    FreeAndNil (sl);
    raise Exception.Create ('Datei nicht gefunden.');
  end;
end;