Captions aller Komponenten in ein Memo-Feld schreiben

[Primus]

Hallo,

ich suche nach einer Möglichkeit alle Captions der Komponenten in
meiner Form in ein Memo-Feld zu schreiben. Aber Irgendwie bekomme ich
das nicht hin.

Folgendes habe ich schon versucht:

Delphi-Quellcode:

var 
  i: integer; 
  PropInfo: PPropInfo; 
  Component: TComponent; 
begin 
  for i := 0 to ComponentCount - 1 do 
  begin 
    Component := Components[i]; 
      PropInfo := GetPropInfo(Component.ClassInfo, 'Caption'); 
  end; 
end;

Danke schon mal,

Primus

[CalganX]

SourceCode ungetestet, dürfte aber funktionieren:

Delphi-Quellcode:

var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount do begin
    Memo1.Lines.Add( Form1.Components[i].Caption );
  end;
end;

Chris

[Primus]

Leider funktioniert das nicht, da es kein Form1.Components[i].Caption gibt.

Gruss,

Primus

[CalganX]

Dann eben so:

Delphi-Quellcode:

var
  i: integer;
begin
  for i:=0 to Form1.ComponentCount do begin
    if (Form1.Components[i] is TControl) then
      Memo1.Lines.Add( (Form1.Components[i] as TControl).Caption );
  end;
end;

Wusste gerade nicht, ob Caption von TControl oder von TComponent kommt...

Chris

[Primus]

Hallo Chris,

entweder stelle ich mich zu dusslig an, oder mein Delphi will
mich ärgern.

Auch der Code funktioniert nicht, Delphi meldet unbekannte Funktion Caption.

Hast Du noch eine andere Idee?

Ach so gesundes neues Jahr wünsche ich.

Primus

[jbg]

TControl hat zwar die Eigenschaft Caption, nur ist sie protected. Aus diesem Grund kann auch die RTTI nicht genutzt werden, weil diese nur für published Eigenschaften funktioniert (bei entsprechendem Compilerschalter).

Delphi-Quellcode:

type
  TControlHack = class(TControl);
...
var 
  i: integer; 
begin 
  for i := 0 to Form1.ComponentCount - 1 do
    if (Form1.Components[i] is TControl) then
      Memo1.Lines.Add(TControlHack(Form1.Components[i]).Caption);
end;