Labels in ein Array?

[Tpercon]

FindComponent ist in der Unit Classes enthalten.

[Splinter]

muss ich dann irgendwas davorschreiben?

classes.findcomponent oder sowas?

[Tpercon]

Unter

Code:

interface

uses

sollte u.a. dies zu finden sein:
classes

[Splinter]

ist es auch und da steht finccomponent auch drin aber er sagt trotzdem
[Error] Unit1.pas(202): Undeclared identifier: 'findcomponent'

[Tpercon]

Dann poste mal bitte deinen entsprechenden Code.

[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;

das was nightsahde schon gepostet hat

[Tpercon]

Ich habe das jetzt mal getestet und so geht's definitiv:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;

  procedure tagsichtbar(Mytag: TLabel);
  begin
    if Mytag.Visible
      then Form1.Memo2.Lines.Add(Mytag.name);
  end;

begin
  for i := 1 to 4 do begin
    tagsichtbar(FindComponent('Label'+inttostr(i)) as TLabel);
  end;
end;

end.

Weiß nicht, was du sonst noch anders hast?

[Splinter]

das geht bei mir auch wenn ich das in nen neues formular schreibe aber wnn ich in das alte reinschreibe dann sagt er

[Error] Unit1.pas(202): Undeclared identifier: 'findcomponent'

ich versteht das nich °_^

[Splinter]

so hab ma gestestet wenn ich in mein formular nen button reinmache und das reinschreibe dann meckert er nich
aber bei der prozedur oben schon
WIESO? 8[

[Tpercon]

Dann poste doch mal den kompletten Interface Teil (die Komponentenaufzählung kannst du ja was kürzen) und den relevanten Implementation Teil.