Delphi-Quellcode:
type TPCallback = procedure
procedure callback;
procedure setCallBack;
procedure callCallBack;
var cb : TPCallBack;
...
procedure callback;
begin
//dosomething
end;
procedure setCallBack;
begin
cb := callback;
end;
procedure callCallBack;
begin
cb;
end;
Anmerkung: evtl. Musst du TPCallback = procedure of Object machen, wenn es sich um eine Prozedur/Funktion eines Objektes Handelt...
EDIT: Wieso ignoriert der meine Einückung?