Exception bei writeln

[Thomas F]

Zitat von DeddyH:

Das FileCreate war aber hier wirklich überflüssig. Allerdings wäre eine Fehlerbehandlung für das AssignFile,Rewrite...-Gespann schon ganz sinnvoll.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject); 
var f:Textfile; 
begin 
try
assignfile(f,'Test.txt'); 
rewrite(f); 
writeln(f,'blablabla'); 
closefile(f); 
except
closefile(f);
end;
end;

....so am besten..