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
^^^

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