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