Помогите ПОЖАЛУЙСТА -- Label

← →
Suharew © (2003-02-04 14:46) [0]

Есть 100 Label`ов как сделать что-то вроде
for i:=1 to 100 do label[i].caption:=inttostr(i);
тоесть всем label присвоить текст.

← →
Clickmaker © (2003-02-04 14:56) [1]

for i := 0 to ControlCount-1 do begin
if (Controls[i] is TLabel) then TLabel(Controls[i]).Text := IntToStr(i);
end;

← →
malkolinge © (2003-02-04 14:59) [2]

Да толко видиться мне, что Грид юзать надо :)

можно так
создавать динамически Label-ы
типа
// что-то типа этого кода повесь на событие OnActivate формы
var
MasL: Array[1..100] of TLabel;
i: Byte;
begin

for i := 1 to 100 do begin
MasL[i] := TLabel.Create(Form1);
MasL[i].Parent := Form1;
end;
// размещаешь их в нужные места на форме
// ну и потом индексируешь как надо типа
// for i := 1 to 100 do MasL.Caption := "Label" + IntToStr(i);

end.

Помогите ПОЖАЛУЙСТА -- Label Найти похожие ветки