Wie kann ich den gesamten Inhalt einer TextDatei löschen?

[Daniel B]

Den OpenDialog-Teil evtl. entfernen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  tf: TextFile; 
begin 
  if OpenDialog1.Execute then 
  begin 
    AssignFile(tf, OpenDialog1.FileName); 
    ReWrite(tf); 
    CloseFile(tf); 
  end; 
end;