Pointer auf Object in Variant speichern und wieder auslesen

[bwolf]

Hi Leute,

folgende Frage:


Ich erstelle eine kleine Klasse:

Code:

type
  TTtest = class
    private
      description : String;
  end;

Ich speichere in einem Variant die Referenz auf ein Objekt dieser Klasse:

Code:

procedure TfrmMain.Button2Click(Sender: TObject);
var
  PSplObj : ^TTest;
begin

      New(PSplObj);
      PSplObj^ := TsplCellObject.Create;
      PSplObj.description := sTeam;
      PSplObj.color := clRed;
      grid.DataController.Values[0,0] := Integer(PSplObj);
      dispose(PSplObj);

end;

Nun versuche ich auf die Referenz dieses Objects zuzugreifen,aber schaffe es nicht:

Code:

procedure TfrmMain.gridCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  myAdress : Integer;
begin
    myAdress := Integer(AViewInfo.Value);  // enthalt die Zeigeradresse die in grid.DataController.Values[0,0] zugewiesen wurde
    showmessage((TObject(myAdress) as TTest).description);
end;

Wäre toll wenn mir da einer kurze Hilfestellung geben würde...
1000 dank !