Labels in ein Array?

[Splinter]

Delphi-Quellcode:

procedure sichtbareTageeins;

 var i: Integer;  

  Procedure tagsichtbar(Mytag: Tlabel);
  begin
    If Mytag.Visible Then 
      Form1.Memo2.lines.Add(Mytag.name);
  end;
 
begin
  for i := 1 to 7 do
    tagsichtbar((findcomponent('Label'+inttostr(i)) as TLabel));
end;

Mag daran liegen, das Form1.tag eine vorhandene Variable ist.
Versuchs mal so wie oben ...[/quote]




er hat komischerweise immer probleme mit der function findcomponent wieso findet er die nich??
aber wenn ichs so mache wie du sind nur noch 2 fehlermeldungen über :

[Error] Unit1.pas(203): Undeclared identifier: 'findcomponent'
[Error] Unit1.pas(203): Operator not applicable to this operand type