Komponoentennamen in Schleifen

[ManuMF]

Hallo,

umd die vorherigen Beiträge zu kombinieren:

Delphi-Quellcode:

const LabelZahl = 5; // Kannst du festlegen

var Labels: Array[1..LabelAnzahl] of TLabel;

(********************)

// onFormCreate:

var N: Cardinal;

begin
  for N := 1 to LabelAnzahl do
    Labels[N] := (Form.FindControl('Label' + IntToStr(N)) as TLabel);
end;


(********************)

// irgendeine Prozedur:

var N: Cardinal;

begin
  for  N := 1 to LabelZahl do
    Labels[N].Caption := 'XYZ';
end;

Diesen Code würde ich aber nur verwenden, wenn wirklich so viele Labels auf dem Formular sind wie die Konstante LabelZahl ist.

Gruß,
ManuMF