Главная страница
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.037 c
3-3795
Xmen
2003-09-12 16:37
2003.10.02
Криллица где оно?


14-4122
Karnegi.
2003-09-12 18:35
2003.10.02
Помогите, проблема с автоматическим открытием формы.


3-3800
asdf
2003-09-11 02:32
2003.10.02
передача данных из grid в excel


1-3892
Andrey V.
2003-09-18 09:03
2003.10.02
Не удается подключить компонент


4-4164
Сергей Ю.
2003-07-29 20:01
2003.10.02
---|Ветка была без названия|---