Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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/

:-)

---

← →
Virgo_Style ©   (2006-01-14 18:01) [4]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c