Скачать: CL | DM;

Fofm1.Button*.Caption:=massiv[i];   Найти похожие ветки 

← →
AlexZ_CRC ©   (2004-05-15 12:16) [0]

Приветствую!
Я тут столкнулся с такой проблемой автоматизации:
нужно типа (извиняюсь, что пишу бред, но объяснить что мне нужно могу только так)

for i:=0 to 20 do begin
 Form1.Button[i].caption:=massiv[i];
end;

т.е надо избежать:

Form1.Button0.caption:=massiv[0];
Form1.Button1.caption:=massiv[1];
Form1.ButtonN.caption:=massiv[N];

если кто-нить понял, прошу подсказать и не посылать 8)

---

← →
DrPass ©   (2004-05-15 12:31) [1]

Я бы послал, конечно... т.к. это есть уже наверное во всех мыслимых FAQ...
j:=0;
for i:=0 to ComponentCount-1 do
 if Components[i] is TButton then begin
   (Components[i] as TButton).Caption:=massiv[j];
   inc(j);
 end;
 

---

← →
GuAV   (2004-05-15 12:40) [2]

Уже спрашивал
http://delphimaster.net/view/1-1084544658/

---

← →
AlexZ_CRC ©   (2004-05-15 12:52) [3]

>>Уже спрашивал
Дико извиняюсь, но вчера сервер выдавал ошибки, оказалось, что прошлый пост был удачный.
2DrPass Спасибо за код. Также благодарен всем ответившим в прошлом посте (на эту-же тему).

---

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

Скачать: CL | DM;



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