массив

← →
M_Alex (2006-01-14 17:16) [0]

как в цикле присвоить нескольким компонентам TLabel значения caption из массива приблизительно так
for i:=1 to n label[i].caption:=mass[i]

как это реализовать?

← →
з. танька (2006-01-14 17:25) [1]

создавай их в рантайме..
var
labels: array[0..n] of TLabel;
begin
for i := 0 to n do
begin
Labels[i] := TLabel.Create;
Labels[i].Parent := form1;
Labels[i].left := ...;
Labels[i].Top := ...;
Labels[i].Caption := mas[i];
end;

← →
Virgo_Style © (2006-01-14 17:28) [2]

или так:

procedure TForm1.FormCreate(Sender: TObject); var i,n,j:integer; begin n := ComponentCount-1; j := 0; for i:=0 to n do if (Components[i] is TLabel) then begin TLabel(Components[i]).Caption := IntToStr(j); inc(j); end; end;

← →
begin...end © (2006-01-14 17:52) [3]

> Virgo_Style © (14.01.06 17:28) [2]

> n := ComponentCount-1;
> for i:=0 to n do

http://delphimaster.net/view/15-1136989131/

:-)

begin...end © (14.01.06 17:52) [3]

нет, сначала написал n = ComponentCount-1;, имея в виду [0], а потом уже было лениво что-то менять :-)

массив Найти похожие ветки