nja, wenn er sich den Speicher für den Zeiger noch mit anlegt, dann würde es auch damit gehn.
Delphi-Quellcode:
procedure TestProc;
var
Server : TServer;
P: PObject;
begin
:
New(P);
P^ := Server:
NotifyToList(P);
:
end;
Aber wie bereits gesagt, ist TObject (nnd Nachkommen) schon ein Zeiger(Refferenz) auf die Objectdaten.
Also würde ein Cast ausreichend sein.
Delphi-Quellcode:
procedure TestProc;
var
Server : TServer;
begin
:
NotifyToList(Pointer(Server));
:
end;