Pointer auf Klassenvariable, die übergeben wurde, zuweisen

[Leuselator]

Delphi-Quellcode:

var
TestPointer : Pointer;
//TestPointer : ^Pointer; wäre ein Zeiger auf einen Zeiger

Dann:

Delphi-Quellcode:

procedure Zuweisen(xx: TTest); 
begin 
  TestPointer := @xx; 
end;

Und später:

Delphi-Quellcode:

BlaBla...
if Assigned(TestPointer) //Enthält TestPointer gültige Adresse?
  then TTest(TestPointer).X := 5; // TypeCasting Zeiger als TTest-Objekt 
                                  // und Eigenschaft X Wert zuweisen

Gruß