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/

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

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