Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Динамическое создание TEdit ов   Найти похожие ветки 

 
Ironman83   (2006-05-23 12:55) [0]

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;

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


 
unknown ©   (2006-05-23 12:56) [1]

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


 
unknown ©   (2006-05-23 12:58) [2]

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


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

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

не работает


 
Ega23 ©   (2006-05-23 13:09) [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);
    ......



 
Sergey13 ©   (2006-05-23 13:17) [5]

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


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


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

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


 
Ega23 ©   (2006-05-23 14:28) [7]


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


Незачто.



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

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

Наверх




Память: 0.48 MB
Время: 0.036 c
4-1142521113
FH
2006-03-16 17:58
2006.06.11
Имя файла шрифта


15-1147749625
DelphiN!
2006-05-16 07:20
2006.06.11
Программный ввод пароля при подключении через RAdmin


15-1147878308
Alien1769
2006-05-17 19:05
2006.06.11
Работа с файлами в одном файле


11-1128106300
Sniper17
2005-09-30 22:51
2006.06.11
Владимир, выложите на вашем сайте 2.13 которую потом


15-1148063972
стыдно
2006-05-19 22:39
2006.06.11
40 мин. не мог посчитать =)