Captions aller Komponenten in ein Memo-Feld schreiben

[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