Delphi – Exceptions et Exit

Je viens de faire une découverte très intéressante :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
    exit;
  Finally
    ShowMessage('Finally called !');
  End;
end;

Le message est affiché.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *