Überprüfen ob eine Funktion existiert also nicht nil ist.

[samson]

Hallo,

ich habe folgendes Problem.

Also. Ich habe ein Basisformular erstellt: TBasicForm welches von TForm abgeleitet ist. Wenn ich jetzt MDIChilds erstelle, werden diese von TBasicForm abgeleitet.

Die Formular-Procedure FormClose habe ich überschrieben, damit Sie so aussieht:
procedure FormClose(Sender: TObject; var Action: TCloseAction; ExitProc:TExitProcedure); ExitProc ist eine Übergebene Function die eben ausgeführt wird, wenn das Formular geschlossen wurde.

Ich habe jetzt ein MDIChild erstellt, welches keine Procedure übergeben bekommt. Wenn nun versucht wird die ExitProc-Function auszuführen gibt es eine Exception.

Aufruf:
inherited FormClose(Sender, Action, nil); Wie kann ich prüfen, ob die Adresse, bzw. Procedure existiert???

if ExitProc <> nil then ExitProc; funktionnukkelt nicht.

Ich hoffe das einer helfen kann.

Gruss

Samson

[sakura]

Genau dafür gibt es Assigned

if Assigned(ExitProc) then ExitProc; ......

[samson]

Hallo Sakura.

Ich habs ausprobiert. Leider lässt sich der Quelltext dann nicht kompilieren:

Inkompatible Typen: 'TPersistent' und 'procedure, untyped pointer or untyped parameter' Ein Casten auf TPersistent funktioniert auch nicht.

Was kann ich tuen???


Gruss


Samson

[sakura]

Wie hast Du denn TExitProcedure definiert?

......

[samson]

Hat sich erledigt. Funktioniert gut.

Ich habe beim Ausprobieren statt: Assigned -> Assign verwendet.

Mit Assigned gehts besser.

Danke.

Gruss

Samson

[Christian Seehase]

Moin Samson,

statt:

if ExitProc <> nil then ExitProc; schreib' mal:

Code:

if [color=red]@[/color]ExitProc <> nil then ExitProc;

Das sollte auch gehen.