Pointer->Integer, Integer->Pointer

[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;