| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с компонентом в цикле [D3, WinXP]

alberto ©   (2004-08-26 19:12:00) 

Господа!
Есть следующая задача.
Есть 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]
Надеюсь вы поняли, что я имел ввиду
Спасибо заранее

---

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

Спасибо !

---

Yanis   (2004-08-26 19:14:00) [2]

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:00) [3]

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

---

Наверх