Inhalt einer Textdatei löschen

[Chegga]

Hi,

hier nochmal eine Lösung:

Delphi-Quellcode:

const
  DateiName = 'Wasweißich.txt';

Delphi-Quellcode:

var
  Hallo: TStringList;

.
.
.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hallo := TStringList.Create;
  Hallo.LoadFromFile(DateiName);
  Hallo.Clear;
  Hallo.SaveToFile(DateiName);
end;

MfG Marc

[Edit] Code editiert. Was habe ich nur wieder geschrieben?! [/Edit]