Массив из компонентов

← →
Novij (2003-05-11 19:27) [0]

Знатоки! Помогите пожалуйста!!!!
Как описать массив из компонентов типа TEdit,
чтобы решить нижеописанную ситуацию ?
Или как решить ее по другому?

На форме 10 компонентов типа TEdit,
заполненияем его поле Text:
Нерациональный способ:
Edit1.Text:=IntToStr(1);
Edit2.Text:= IntToStr(2);
Edit3.Text:= IntToStr(3);
……………………….
Edit10.Text:= IntToStr(10);

А нужно что-то вроде этого
For i:=1 to 10
Begin
{Возможный массив}Array[i]:=i;
end

Спасибо! Всем кто ответит

← →
Esu © (2003-05-11 19:31) [1]

Так например
For i:=1 to 10 Begin TEdit(Form1.FindComponent("Edit" + IntToStr(i))).text := IntToStr(i); end;

← →
esu © (2003-05-11 19:32) [2]

For i:=1 to 10 do Begin TEdit(Form1.FindComponent("Edit" + IntToStr(i))).text := IntToStr(i); end;

do забыл добавить :)

← →
Song © (2003-05-11 19:38) [3]

Вы чего сговорились целый вечер одинаковые вопросы задавать? :)
Один про TButton, другой про TLabel, теперь ты про TEdit. И главное что темы все соседние!

← →
Kair © (2003-05-11 19:40) [4]

:)
(FindComponent("Edit"+IntToStr(i)) as TEdit).Text:=IntToStr(i);
:)

← →
esu © (2003-05-11 19:41) [5]

Song: Да уж :)))

For i:=1 to 10 do
Begin
(FindComponent("Edit"+IntToStr(i)) as TEdit).Text:=IntToStr(i);
end;

do, begin и end забыл добавить. :)
и for, и to тоже забыл. :)
не забываем про точки с запятыми. :)

← →
Mazer (2003-05-11 19:58) [7]

[b]Song[/b]
эт точно, блин...
сам удивляюсь... :)
Вопрос задал, потом нашел два похожих на той же странице...
Дела...

← →
Novij (2003-05-11 20:27) [8]

Благодарю всех!!!

Массив из компонентов Найти похожие ветки