Pointer->Integer, Integer->Pointer

[mumu]

ich möchte in der Tag-Eigenschaft (ist ein integer) einer Komponente einen zeiger auf einen string speichern und anschließend wieder auslesen.

speichern:
str: string;
komponente.tag := Integer(@str);

auslesen?

stimmt das speichern so? und wie muss ich das jetzt auslesen?

[alcaeus]

Auslesen:

Delphi-Quellcode:

type
  PFOrm = ^TForm;

...

PForm(Tag)^.Caption := 'Test';

Sollte funktionieren.

Greetz
alcaeus

[himitsu]

Und wie ist das hiermit?

Delphi-Quellcode:

str: String; 

str := String(Komponente.Tag^);

Hab's ja nicht so mit Zeigern, aber das sollte doch die Umkehrung sein?

Code:

komponente.tag := Integer(@str); 
komponente.tag := [color=#ff0000]@[/color]str; 
str := komponente.tag[color=#ff0000]^[/color]; 
str := String(komponente.tag^);

[Sprint]

Zitat von mumu:

ich möchte in der Tag-Eigenschaft (ist ein integer) einer Komponente einen zeiger auf einen string speichern und anschließend wieder auslesen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  procedure Test;
  begin
    ShowMessage(String(Button1.Tag));
  end;

var
  S: String;
begin

  S := 'Hallo Welt!';
  Button1.Tag := Integer(S);
  Test;

end;

[mumu]

vielen dank für euere Antworten!

funktioniert jetzt prima!

gruß