Как обратится к 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 ...

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

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

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

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

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

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