Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
ВнизДинамическое создание 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c