Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
AW: "reference to procedure" vs. "procedure"
29. Jan 2018, 12:29
Nein.
PS: Der Compiler macht da ein generiesches Interface drum
Delphi-Quellcode:
TProcObject = class(TGeheimesInterface)
FGesharteVariablen: IVariablen;
FProc: procedure();
FEvent: procedure() of object;
...
procedure Call;
end;
TProcObject.procedure Call;
begin
if Assigned(FProc) then
FProc(FGesharteVariablen);
if Assigned(FEvent) then
FEvent(FGesharteVariablen);
...
end;
$2B or not $2B
Geändert von himitsu (29. Jan 2018 um 12:34 Uhr)
|