Exception bei writeln

[Fussball-Robby]

Zitat von Thomas F:

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;

Das ist aber nicht sinnvoll, da CloseFile hier auf jeden Fall aufgerufen wird - und für sowas benutzt man i.d.R. try..finally:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject); 
var
  f: TextFile; 
begin 
  try
    AssignFile(f, 'Test.txt'); 
    Rewrite(f); 
    WriteLn(f, 'blablabla'); 
  finally
    CloseFile(f);//das wird auf jeden Fall ausgeführt
  end;
end;

Es gibt sicherlich sinnvolere Fehlerbehandlungen, aber mit diesen Routinen kenne ich mich nicht so gut aus