Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.02;
Скачать: 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 вся ветка

Текущий архив: 2003.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-3825
JohnJ
2003-09-18 10:52
2003.10.02
жирный шрифт некоторых букв в memo


3-3733
Мария В.
2003-09-12 14:16
2003.10.02
Поиск ODBC DSN


3-3758
ingil
2003-09-12 10:00
2003.10.02
Как узнать как выполнилась Хр.Процедура ??


1-3897
Dev
2003-09-18 14:15
2003.10.02
Работа с DLL


9-3701
Nuke
2003-03-22 22:05
2003.10.02
ПОМОГИТЕ ПЛИЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗ