Use variables for object name in Delphi

Question

I\'m trying to change the caption of many labels using regular way:

form1.label1.caption := \'1\';
form1.label2.caption := \'2\';
form1.label3.c         


        

Answer 1

Create your controls dynamically. If you need to retain references to them hold those references in an array. For example, this is the general pattern.

var
  FLabels: array of TLabel;
....
SetLength(FLabels, Count);
for i := 0 to Count-1 do
begin
  FLabels[i] := TLabel.Create(Self);
  FLabels[i].Parent := Self;
  FLabels[i].Caption := IntToStr(i+1);
  FLabels[i].Left := 8;
  FLabels[i].Top := 8 + i*20;
end;