Работа с компонентом в цикле

← →
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]

Спасибо !

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