Einzelnen Beitrag anzeigen

ghubi01

Registriert seit: 18. Nov 2017
66 Beiträge
 
Delphi 10.3 Rio
 
#2

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

  Alt 8. Nov 2018, 10:44
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;
  Mit Zitat antworten Zitat