Pointer auf Object in Variant speichern und wieder auslesen

[EarlyBird]

Hab`s mal getestet,
so klappt es:

Code:

procedure TfrmMain.gridCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  PSplObj : TTtest;
  objectInt : Variant;
begin
   try
     objectInt := Integer(AViewInfo.Value) ;
     PSplObj := TTtest(PInteger(TVarData(objectInt).VPointer)^);
     showmessage(PSplObj.description);
   except

   end;

end;;