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

For и EditX   Найти похожие ветки 

← →
Dmitriy_R   (2003-09-22 09:03) [0]

Подскажите как внутри цикла организовать перебор Едитов.
Тоесть:
for i:=1 to 10 do
begin
мxt := edit(i).text; // <- надо вот это, только как правильно?
.....
.....
end;

---

← →
ЮЮ ©   (2003-09-22 09:12) [1]

mxt := TEdit(FindComponent("Edit" + IntToStr(i)).text

и помнить, что код не безопасен, т.к. FindComponent может вернуть nill

---

← →
Dmitriy_R   (2003-09-22 09:28) [2]

Не идет, пишет:
[Error] Unit1.pass(113): Undeclared edentifier: "Text"

---

← →
ЮЮ ©   (2003-09-22 09:33) [3]

Добавь ещё одну ")" :-)
mxt :=
TEdit(
FindComponent(
"Edit" + IntToStr(i)
)
).text

---

← →
Dmitriy_R   (2003-09-22 09:34) [4]

Все спасибо разобрался пропущена скобка в:
mxt := TEdit(FindComponent("Edit" + IntToStr(i))).text
^^^

---

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

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



Память: 0.45 MB
Время: 0.014 c