Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Вниз
Заполнение массива Найти похожие ветки
← →
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);//и обращаешся к Ed[i,j], а Tag пользуешь, чтобы пронумировать Edit`ы в нужном тебе порядке, а не как Delphi на душу положит
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;
← →
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 © (26.09.03 16:29) [12]
Ну наверно они на форме у него квадратиком...
← →
pasha_golub (2003-09-26 16:42) [16]2Palladin
:-)) За это я тебе еще один значек присвою :-))
← →
HolACost! (2003-09-26 16:46) [17]Блин! Яж уже отстрем объявил, а он ещё тут! Гым!
Массив ему нужен, потомучто отсутствует абстрактное мЫшленье!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c
