Как работать с большой группой одинаковых компонентов

← →
hex_for_delphi (2003-06-26 13:13) [0]

Как работать с большой группой одинаковых компонентов например мне нужно в цикле раздать большое количество значений компанентам edit1 у меня их 96 штук и 96 значений для них. Приблезительно это выглядит вот так:
edit0.Text := inttostr(tabl[0,0].damegepl1);
edit1.Text := inttostr(tabl[0,0].damegepl2);
edit2.Text := inttostr(tabl[0,0].ustalostpl1);
edit3.Text := inttostr(tabl[0,0].ustalostpl2);
edit4.Text := inttostr(tabl[0,0].dinampl1);
edit5.Text := inttostr(tabl[0,0].dinampl2);
Но так 96 штук не очень хочется прописывать хочется это сделать в цикле.
что то типа:
for i:=0 to 95 do
brgin
edi[i].Text := inttostr(tabl[0,0].damegepl1);
edi[i+1].Text := inttostr(tabl[0,0].damegepl2);
edit[i+2].Text := inttostr(tabl[0,0].ustalostpl1);
edit[i+3].Text := inttostr(tabl[0,0].ustalostpl2);
edit[i+4.Text := inttostr(tabl[0,0].dinampl1);
edit[i+5].Text := inttostr(tabl[0,0].dinampl2);
end;

← →
Skier © (2003-06-26 13:17) [1]

1) EditsOwner.ComponentCount + EditsOwner.Components[...] +
кастинг
2) TList или TObjectList или их потомки.

← →
KILLER_ABV © (2003-06-26 13:20) [2]

var i: integer;
begin
for i:=0 to EditsOwner.ComponentCount-1 do
begin
EditsOwner[i].color:=... задаеш свои параметры
end;
end;

← →
Skier © (2003-06-26 13:23) [3]

>KILLER_ABV © (26.06.03 13:20)
вряд ли будет работать...:)

← →
KILLER_ABV © (2003-06-26 13:25) [4]

Почему?

← →
Skier © (2003-06-26 13:26) [5]

>KILLER_ABV © (26.06.03 13:25)
У TComponent-a нет свойства Color :)

← →
KILLER_ABV © (2003-06-26 13:28) [6]

Я к примеру.

← →
hex_for_delphi (2003-06-26 13:28) [7]

а как будет?? так как вы не работает выдаёт ошибку на EditsOwner.ComponentCount-1 do

← →
Михаил МК (2003-06-26 13:30) [8]

Попробуй так, у меня все работает

for i:=1 to 40 do
begin
radio := nil;
radio:=TRadioButton(FindComponent("RadioButton"+IntToStr(i)));
if radio <> nil then
begin
// Действия
end;
end;

← →
KILLER_ABV © (2003-06-26 13:31) [9]

for i:=0 to Edit1.ComponentCount - 1 do

← →
Skier © (2003-06-26 13:31) [10]

>hex_for_delphi (26.06.03 13:28)
У Вас edit-ы на чём лежат, батенька ? Как этот компанент зовут ?
(св-во Name)

← →
hex_for_delphi (2003-06-26 13:39) [11]

Эдиты лежат на форме.

← →
Skier © (2003-06-26 13:42) [12]

>hex_for_delphi (26.06.03 13:39)

var ii : Integer; begin for ii := 0 to Form1.ComponentCount - 1 do begin if Form1.Components[ii] is TEdit then begin with TEdit(Form1.Components[ii]) do begin //................. Text := "Hello, world !"; //................. end; //with end; //if end; //for end;

← →
hex_for_delphi (2003-06-26 13:47) [13]

[Error] Unit1.pas(42): Illegal character in input file: " " ($A0)
- Вот что пишет !

← →
Skier © (2003-06-26 13:49) [14]

>hex_for_delphi (26.06.03 13:47)
Хватит гадить в форум !

← →
KILLER_ABV © (2003-06-26 13:50) [15]

>hex_for_delphi (26.06.03 13:47)
Чем тибе не нравится через цыкл?

← →
hex_for_delphi (2003-06-26 13:54) [16]

что за ошибка то ???

← →
Skier © (2003-06-26 13:56) [17]

ДНК

← →
hex_for_delphi (2003-06-26 13:57) [18]

вс нормально всё работает ок тема закрыта..........

← →
hex_for_delphi (2003-06-26 14:08) [19]

Skier - если всё у тебя сводится к Днк твои проблемы а у меня к неопытности. почемуто когда я сделаю так
var i :integer;
begin
for i := 0 to 4 do
begin
TEdit(Form1.Components[i]).Text:= "Hello, world !";
end;

все нормально а когда

for i :=0 to 30 do
begin

if Form1.Components[i] is TEdit then
begin
TEdit(Form1.Components[i]).Text:= inttostr(tabl[0,0].damegepl1);
TEdit(Form1.Components[i]).Text:= inttostr(tabl[0,0].damegepl2);
TEdit(Form1.Components[i]).Text:= inttostr(tabl[0,0].ustalostpl1);
TEdit(Form1.Components[i]).Text:= inttostr(tabl[0,0].ustalostpl2);
TEdit(Form1.Components[i]).Text:= inttostr(tabl[0,0].dinampl1);
TEdit(Form1.Components[i]).Text:= inttostr(tabl[0,0].dinampl2);
end;

то в if Form1.Components[i] is TEdit then выскакивает ошибка
в строке : if Form1.Components[i] is TEdit then
а ошибка : [Error] Editor.pas(199): Illegal character in input file: " " ($A0)

Так вот обямните нормально в чём дело ?

← →
Skier © (2003-06-26 14:12) [20]

>hex_for_delphi (26.06.03 14:08)

> если всё у тебя сводится к Днк твои проблемы а у меня к
> неопытности.

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

> Так вот обямните нормально в чём дело ?

Символ ($A0) сотри и будет тебе счастье.

← →
hex_for_delphi (2003-06-26 14:17) [21]

а что за сивол ($A0) ??? Говари более широко .

← →
hex_for_delphi (2003-06-26 14:19) [22]

вс ок пасиба догнал

> а что за сивол ($A0) ??? Говари более широко

1) Выучить русский !
2) При появлении ошибки жать F1 и читать, читать, читать !

← →
hex_for_delphi (2003-06-26 14:20) [24]

вс ок пасиба догнал

← →
hex_for_delphi (2003-06-26 14:27) [25]

Теперь вылелась другая проблема у них числовые значения не савпадают с их именами т.е edit0 не равен TEdit(Form1.Components[0]).Text а мне нужно именно последовательная работа с компанентами .

>hex_for_delphi (26.06.03 14:27)
Один совет (если позволишь) :
-не надо бомбить форум такими вопросами, для этого существуют
книги.

← →
hex_for_delphi (2003-06-26 14:34) [27]

ну ктонить ответит ?

← →
hex_for_delphi (2003-06-26 14:37) [28]

>>hex_for_delphi (26.06.03 14:27)
>Один совет (если позволишь) :
>-не надо бомбить форум такими вопросами, для этого существуют
>книги.
а у кого книг нет для этого сушествуют форумы.

у кого нет книг нанимают репетитора, но справка есть у всех

← →
hex_for_delphi (2003-06-26 15:28) [30]

Большое спасибо за внимание..

Как работать с большой группой одинаковых компонентов Найти похожие ветки