| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать динамич. массив TEditов? [D5, D6, Win95/98]
dimanew © (2002-07-17 04:45:00)Как создать динамич. массив TEditов?
VAleksey (2002-07-17 10:13:00) [1]Мужики, вопроса про "удалять" не было ! Чего это вы ? :))
Вот спросит про удалить. Тогда и ответите Когда сами удаляться, а когда и "не сами".
Виктор Щербаков (2002-07-17 09:52:00) [2]
> а удалятся они сами...
Как это сами?
Rem (2002-07-17 09:50:00) [3]Создание Edit"ов на форме:
procedure TFrom1.Button1Click(Sender: TObject);
begin
// создание нового Edita
with TEdit.Create(Self) do
begin
Parent := Self;
// Установка параметров: размеров, текста, имени...
end;
// ... в том же духе
end;
а удалятся они сами...
Свойство Parent определяет компонент, на котором будет отображаться Edit
Юрий Зотов (2002-07-17 09:01:00) [4]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;
| |
