Заполнение массива

← →
SergeyM (2003-09-25 17:43) [0]

Привет мастера!
Каким образом можно заполнить массив из Edit"ов (4х4), когда-то я видел что-то подобное но уже не помню где помню что связано с Tag"ами, но как их в цикле перебирать?

← →
Palladin (2003-09-25 17:53) [1]

если array [1..4,1..4] of TEdit
for i:=1 to 16 do edits[i].text:=inttostr(i);если както по другому
както по другому

← →
SergeyM (2003-09-25 18:01) [2]

Точно сработает?
А почему Edits а не Edit?

← →
HolACost! (2003-09-25 18:03) [3]

>>Точно сработает?
>>А почему Edits а не Edit?
Где там чел, который лицензию на убийство получил?

← →
VAleksey (2003-09-25 18:04) [4]

Потому, что массив.
И вроде как
Edits[i,j].Text := inttostr(i+j);
Массив же двумерный или как?

← →
SergeyM (2003-09-25 18:05) [5]

>Где там чел, который лицензию на убийство получил?
А это че?

← →
HolACost! (2003-09-25 18:06) [6]

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

← →
SergeyM (2003-09-25 18:08) [7]

Пример кода если можно а там попробую разобраться

← →
Palladin (2003-09-25 18:24) [8]

> VAleksey © (25.09.03 18:04) [4]

если Range checking отключено сработает...
n мерный массив это тотже самый одномерный...

← →
Yanval (2003-09-26 15:15) [9]

var Ed:array [1..4,1..4] of TEdit;
{Если поля существуют, то в инспекторе объектов в их Tag запиши последовательно значения 1,2,3,4,11,12,13,14,21,22,23,24,31,32,33,34 затем}
procedure TForm1.FormCreate(Sender: TObject); var i:byte; begin for i:=0 to form1.ComponentCount-1 do if (Components[i] is TEdit) and (Components[i].Tag>0) then begin if Components[i].Tag<10 then Ed[Components[i].Tag,1]:=(Components[i] as TEdit); if (Components[i].Tag>10) and (Components[i].Tag<20) then Ed[Components[i].Tag-10,2]:=(Components[i] as TEdit); if (Components[i].Tag>20) and (Components[i].Tag<30) then Ed[Components[i].Tag-20,3]:=(Components[i] as TEdit); if Components[i].Tag>30 then Ed[Components[i].Tag-30,4]:=(Components[i] as TEdit); end; end;//и обращаешся к Ed[i,j], а Tag пользуешь, чтобы пронумировать Edit`ы в нужном тебе порядке, а не как Delphi на душу положит

← →
SergeyM (2003-09-26 16:21) [10]

А как мне из byte в integer перевести?

← →
Palladin (2003-09-26 16:25) [11]

епицеская сила...

← →
pasha_golub (2003-09-26 16:29) [12]

Не я одного не пойму.
ЗАЧЕМ СОЗДАВАТЬ ДВУМЕРНЫЙ МАССИВ КОМПОНЕНТОВ?

← →
SergeyM (2003-09-26 16:29) [13]

Не серьезно чето я в справочнике не нашел?

← →
SergeyM (2003-09-26 16:31) [14]

>>ЗАЧЕМ СОЗДАВАТЬ ДВУМЕРНЫЙ МАССИВ КОМПОНЕНТОВ?
Мне надо вручную заполнить массив, для дальнейших расчетов.

← →
Palladin (2003-09-26 16:33) [15]

← →
pasha_golub (2003-09-26 16:42) [16]

2Palladin
:-)) За это я тебе еще один значек присвою :-))

← →
HolACost! (2003-09-26 16:46) [17]

Блин! Яж уже отстрем объявил, а он ещё тут! Гым!
Массив ему нужен, потомучто отсутствует абстрактное мЫшленье!

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