try,except,finally

[Leuselator]

@dizzy: Wenn Du Gürtel UND Hosenträger benutzen möchtest, kannst Du try/exept bzw.try/finally schachteln:

Code:

[b]begin[/b]
  Objektvariable [b]:=[/b] TObject.Create;
[color=red]  [b]try[/b] [/color]
[color=seagreen]    [b]try[/b] 
      ObjectVariable.DoSomething; 
    [b]except[/b]
      MessageDlg([/color][color=darkblue]'Fehlermeldung'[/color][color=seagreen], mtError, [mbOK], 0);
    [b]end[/b]; [/color]
[color=red]  [b]finally[/b] 
    FreeAndNil(Objektvariable);
  [b]end[/b];[/color]
[b]end[/b];

Grün: innerer Try-/Except-Block (Gürtel)
Rot : äusserer Try-/Finally-Block (Hosenträger)
Gruß