Скачать: CL | DM;

Как обратится к TEdit в цикле?   Найти похожие ветки 

← →
galexis ©   (2004-06-08 17:48) [0]

Есть 48 полей TEdit. Я дал им имена h1, h2 ... h48. Надо заполнить их значениями из БД. Хотел в цикле, но не знаю как обратится к полю. Т.е. мне надо написать h1.text:=..., h2.text:=..., ... h48.text:=...; Как можно это в цикле реализовать. Как записать правую часть в моем случае я знаю. А вот левую?

---

← →
begin...end ©   (2004-06-08 17:52) [1]

Уж лучше бы ты их создавал тоже в цикле.

---

← →
galexis ©   (2004-06-08 17:53) [2]

А как по форме раскидывать?

---

← →
Weber ©   (2004-06-08 17:54) [3]

А не в лом было 48 Edit"ов оформлять. Delphi для тебя замена горного велосипеда? Или прочитал книжку по экстремальному программированию?

---

← →
Weber ©   (2004-06-08 17:55) [4]

> galexis ©   (08.06.04 17:53) [2]

Left, Top, Width и Height уже отменили последним указом президента РФ?

---

← →
Anatoly Podgoretsky ©   (2004-06-08 17:57) [5]

FindComponent

---

← →
begin...end ©   (2004-06-08 17:59) [6]

> galexis


Если уже создал в Design-Time, то, по-видимому, так:

(FormName.FindComponent("h" + IntToStr(I)) as TEdit).Text := ...

Или создай сейчас массив:

EditArray: array [1..48] of TEdit;
for I := 1 to 48 do
 EditArray[I] := FormName.FindComponent ...

И потом обращайся по индексам.

Но лучше, конечно, динамически создавать.

---

← →
galexis ©   (2004-06-08 18:09) [7]

begin...end
Работает, спасибо огромное. Динамически конечно лучше, но так уж я прлограммы пишу. Сначала проблему в "лоб" решаю, потом оптимизирую

---

← →
Weber ©   (2004-06-08 18:19) [8]

> galexis ©   (08.06.04 18:09) [7]

Мда, бедный "влоб"

---

← →
TUser ©   (2004-06-08 18:49) [9]

> Сначала проблему в "лоб" решаю, потом оптимизирую

В данном случае, ты сначала проблему в лоб создаешь, а потом ее решаешь

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c