Скачать: CL | DM;

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

← →
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: Да уж :)))

---

← →
Kair ©   (2003-05-11 19:43) [6]

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c