Exception bei writeln

[himitsu]

wenn schon, dann so: (verwendete Variablen im Exceptionblock vorher initialisieren)

Delphi-Quellcode:

assignfile(f, 'Test.txt');
try
  Rewrite(f);
  WriteLn(f, 'blablabla');
  CloseFile(f);
except
  CloseFile(f);
end;

oder lieber so:

Delphi-Quellcode:

AssignFile(f, 'Test.txt');
try
  Rewrite(f);
  WriteLn(f, 'blablabla');
finally
  CloseFile(f);
end;

Aber besser doch erst garkeine Exception auslösen (wird im Beispiel der OH auch so gemacht)

Delphi-Quellcode:

{$I-}
AssignFile(f, 'Test.txt');
Rewrite(f);
WriteLn(f, 'blablabla');
CloseFile(F);
{$I+}
if IOResult <> 0 then FehlerBehandlung;