Wie kann ich eine TextDatei zum Schreiben Öffnen?

[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); 
    WriteLn(tf, 'Hello World!'); 
    CloseFile(tf); 
  end; 
end;