Objekt-Zeiger in einem String-Parameter "transportiere"?

[ghubi01]

Hallo,

eventuell so:

Delphi-Quellcode:

type
  TMyObj = class(TObject)
  private
    FStr: string;
  end;
...

procedure TForm1.Button1Click(Sender: TObject);
var
  MyObj1, MyObj2: TMyObj;
  PMyObj2: ^TMyObj;
  s: String;
begin
  MyObj1:=TMyObj.Create;
  MyObj1.FStr:='Hallo';

  s:=IntToStr(integer(@MyObj1));
  PMyObj2:=Pointer(StrToInt(s));
  MyObj2:=PMyObj2^;

  Memo1.Lines.Add(MyObj2.FStr);

  MyObj1.Free;
end;