Problem mit TObject.Classname

[himitsu]

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;