Globale Exceptions

[Hansa]

Hallo Christian,

das scheint ja doch keine knallharte Newbie Frage zu sein, stehe trotzdem aufm Schlauch. Sehe keinen Unterschied zwischen meinem Code

Code:

type
  TForm1 = class(TForm)
    KuSource: TDataSource;
    Database: TpFIBDatabase;
    Transaction: TpFIBTransaction;
    Button1: TButton;
    KgMemo: TMemo;
    KuDatenSatz: TpFIBDataSet;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := ExceptGerMeldung;
end;

und Deinem sauberen. Die andere Methode ist anscheinend die von Hand-Pointer-Verbiegerei, wieso geht die saubere nicht?

Gruß
Hansa