Pointer und TObject

[Martin K]

Wie geht das, wenn ich einen Zeiger z.B. auf Form1.Caption zeigen lassen will?
Wenn ich dann den Wert des Zeiger ändere, müsste sich doch auch die Caption von Form1 ändern...

Theoretisch müsste es doch so gehen:

Delphi-Quellcode:

type
  a = ^String;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  b: a;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  b := @Caption;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  b^ := 'test';
end;

Aber praktisch funzt es nich...
Kann mir jemand den Code so abändern, dass er funzt?


Es soll natürlich nicht nur mit Form1.Caption gehen, sondern z.B. auch mit Label1.Caption oder Label1.Font.Name etc.

Ziel ist es, ein Array mit Zeigern auf String zu erstellen.
Dann noch eine Prozedur der ein Zeiger auf einen String übergeben wird (z.B. Label1.Font.Name), dieser wird dann dem Array hinzugefügt.
Führe ich dann z.B. diesen Befehl aus (b ist dann mein Array):
b[1] := 'Arial'
so sollte also die Schriftart von Label1 Arial sein.