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

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

Динамическое создание TEdit' ов

Ironman83 ©   (2006-05-23 12:55:00) 

procedure countVARass(n: integer);
var
 EDArray: array[1..50] of TEdit;
 i: integer;
begin
   for i := 1 to n do
     begin
      EDArray[i].Create := TEdit.Create(self);
      EDArray[i].Parent := self;
      {что то делаем дальше}
    end;
end;

Вопрос! Почему стопорится на крите? Неопознанный идентификатор...

---

Ega23   (2006-05-23 14:28:00) [1]

> Спасибо, разобрался.


Незачто.

---

Ironman83   (2006-05-23 14:19:00) [2]

> Ega23 ©   (23.05.06 13:09) [4]

Спасибо, разобрался.

---

Sergey13   (2006-05-23 13:17:00) [3]

50 TEdit на форме? Я бы подумал в другую сторону. Например CDS+DBGrid.

---

Ega23   (2006-05-23 13:09:00) [4]

Естественно не работает. И не будет. Потому, что сначала разберись, что такое Self.

Даю наводку:

procedure countVARass(n: integer, AOwner:TControl);
var
EDArray: array of TEdit;
i: integer;
begin
SetLength(EDArray,N);
 for i := Low(EDArray) to High(EDArray) do
   begin
    EDArray[i] := TEdit.Create(AControl);
    ......



---

Ironman83   (2006-05-23 12:59:00) [5]

я ошибся! конечно так и написано!
EDArray[i] := TEdit.Create(self);

не работает

---

unknown   (2006-05-23 12:58:00) [6]

И вообще,
procedure countVARass(n: integer);
var
EDArray: array of TEdit;
i: integer;
begin
SetLength(EDArray,N);
  for i := Low(EDArray) to High(EDArray) do
    begin
     {что то делаем дальше}

---

unknown   (2006-05-23 12:56:00) [7]

EDArray[i] := TEdit.Create(self);

---

Наверх