Labels in ein Array?

[Splinter]

Delphi-Quellcode:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, TabNotBk, PieEffekt, PieComboBox, inifiles;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    .....
    ListBox1: TListBox;
    Memo4: TMemo;
    Edit2: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
   ....
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
    SetPath :string;
    procedure Notizalter;

  public
    { Public declarations }
  end;

const Startjahr = 2004;
var
  memo, s: String;
  Form1: TForm1;
  EingabeJahr: Integer = 2004;
  ersterTagJ, ersterTagM: Integer;
  code : Integer;
  searchRec: TSearchRec;

implementation

{$R *.dfm}

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;

die relevanten labels und so is alled definiert (hab ich nur gekürzt)(hier kann der fehler nich liegen weil wenn ich die prozedur rausnehme läuft alles ohne prob)

[edit=Luckie]Delphi-Tags ergänzt. Mfg, Luckie[/edit]

[Tpercon]

Dann deklarier mal deine Procedure:

Delphi-Quellcode:

public
{ Public declarations }
procedure sichtbareTageeins;
end;

und die Definition sollte wie folgt aussehen:

Delphi-Quellcode:

procedure TForm1.sichtbareTageeins;
var i: Integer;
...

Wie schauts damit aus?

[Splinter]

yuhuhuuh
klappt

thx =)