Текущий архив: 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.04 c