Текущий архив: 2006.06.04;
Скачать: CL | DM;

Вниз

Массив компанент   Найти похожие ветки 

← →
!_SM_!   (2006-05-16 17:46) [0]

народ подскажите как решить...
ситуацию. Есть на форме 15 едитов (TEdit);
ихи имена Ed1, Ed2, Ed3, Ed4 и т.д.

Объявлена переменная
var EdArr: [1..15] of TEdit;
Нужно эти едиты в массив засунуть
при formCreate
var N: Byte;
begin
 for N:=1 to 15 do
// вот здесь как правильно написать типа
  EdArr[N]:=TEdit("Ed"+IntToStr(N)); //так вылетает с ошибкой
end;

Че-то где-то видел никак немогу найти,
а поиском незнаю как сформулировать вопрос
Будте добры подскажите.
Спасибо.

---

← →
Stakan ©   (2006-05-16 17:51) [1]

TEdit(FindComponent("Ed" + IntToStr(N)))

---

← →
!_SM_!   (2006-05-16 17:55) [2]

> Stakan ©   (16.05.06 17:51) [1]
> TEdit(FindComponent("Ed" + IntToStr(N)))
Спасибо щас попробую...

---

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

Текущий архив: 2006.06.04;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.079 c