Как создать динамич. массив TEditов?

← →
dimanew (2002-07-17 04:45) [0]

← →
Юрий Зотов © (2002-07-17 09:01) [1]

var
Edits: array of TEdit;

...
// Добавление нового элемента
SetLength(Edits, Length(Edits) + 1);
Edits[High(Edits)] := TEdit.Create(...);
...
// Работа с элементом
Edits[i]. Text := "..."
...
// Уничтожение всех элементов и самого массива
for i := Low(Edits) to High(Edits) do Edits[i].Free;
Edits := nil;

← →
Rem © (2002-07-17 09:50) [2]

Создание Edit"ов на форме:

procedure TFrom1.Button1Click(Sender: TObject);
begin
// создание нового Edita
with TEdit.Create(Self) do
begin
Parent := Self;
// Установка параметров: размеров, текста, имени...
end;
// ... в том же духе
end;

а удалятся они сами...

Свойство Parent определяет компонент, на котором будет отображаться Edit

← →
Виктор Щербаков © (2002-07-17 09:52) [3]

> а удалятся они сами...

Как это сами?

Мужики, вопроса про "удалять" не было ! Чего это вы ? :))
Вот спросит про удалить. Тогда и ответите Когда сами удаляться, а когда и "не сами".

Как создать динамич. массив TEditов? Найти похожие ветки