[Alegun]

Сообщение от lostbananan

Как это можно сократить?...

Цикл "выращивания" 11-ти лейблов

Код:

...
  var
  Cap: array [0..10] of string=
  ('lb0','lb1','lb2','lb3','lb4','lb5','lb6','lb7','lb8','lb9','lb10');
  Lft: array [0..10] of integer=
   (30, 130, 250, 345, 435, 540, 630, 738, 830, 950, 1060);

...

  for i:=0 to 10 do
  begin
  Text[i]:= TLabel.Create(Form1);
  Text[i].Parent:=Form1;
  Text[i].Caption:= Cap[i];
  Text[i].Left:= Lft[i]; ;
  end;
...

гриды можно создавать аналогично