Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

Работа с компонентом в цикле   Найти похожие ветки 

 
alberto   (2004-08-26 19:12) [0]

Господа!
Есть следующая задача.
Есть 5 компонентов TEdit и 5 полей TQuery.
Не хочется писать:
--------
Edit1.Text:=Query.Fields[1].Text;
Edit2.Text:=Query.Fields[2].Text;
Edit3.Text:=Query.Fields[3].Text;
и т.д.
а как это делается в цикле? Примерный вид:
for i:=1 to 5 do  Edit[i]=Query.Fields[i]
Надеюсь вы поняли, что я имел ввиду
Спасибо заранее


 
Yanis ©   (2004-08-26 19:14) [1]

var i: integer;
begin
 for i := 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
     Query.Fields[i].Text := (Components[i] as TEdit).text;
end;


 
Гаврила ©   (2004-08-26 19:14) [2]

for i:=1 to 5 do
 (FindComponent("Edit" + IntToStr(I)) as TEdit).Text:=


 
alberto   (2004-08-26 20:33) [3]

Спасибо !



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
1-1093505122
O?O
2004-08-26 11:25
2004.09.12
Инсталятор


1-1093596746
12345
2004-08-27 12:52
2004.09.12
аналог readln в C++


3-1092897049
surkis
2004-08-19 10:30
2004.09.12
SQL(order by)


1-1093847794
ВАП
2004-08-30 10:36
2004.09.12
Общий файл


1-1093783983
HydraMarat
2004-08-29 16:53
2004.09.12
Long strings в record ах, применение Initialize и Finalize