Also es gibt ein Problem?
Ich finde irgendwie keins.
@himitsu
Wie steht es mit dem Problem, dass eine Variable vom Functionstyp sich nicht in der Schreibweise unterscheidet, wenn man die Funktion ausführen möchte oder den Variablen Wert auslesen möchte.
Ist das Problem gelöst?
Delphi-Quellcode:
unit Unit1
interface
uses classes, sysutils,usw;
Type
TSimpleFunc =
Function:Pointer;
implementation
Function TestF:Pointer;
Begin
Result :=
nil;
Showmessage('
tada');
end;
Procedure Do;
var aPointer:Pointer;
aFunc:TSimpleFunc;
Begin
aFunc := TestF;
// führt es die funktion aus oder speichert es die Adresse der Function in der Functions variable?
apointer := AFunc
as Pointer;
// führt es die funktion aus oder liest es den inhalt von der Variable aFunc?
end;