Exception bei writeln

[Sir Rufo]

Also dann so ...

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  f: TextFile;
begin
  try
    AssignFile(f, 'Test.txt');
    Rewrite(f);
    try
      WriteLn(f, 'blablabla');
    finally
      CloseFile(f);//das wird auf jeden Fall ausgeführt
    end;
  except
    on E: Exception do
      ShowMessage( 'Hier war ein Fehler!' );
  end;
end;