delover
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
diodio
Yozj
Те компоненты которые мы видим на стадии дизайна создаются и разрушаются самостоятельно. Если компонент a1 создан с родителем a2 следующим образом a1:=TMyComponent.Create(a2), то он тоже освобождается автоматически, так как ничем не отличается от компонентов дизайна. Если комнонент создан так:
Код: procedure TForm1.FormCreate(Sender: TObject);
begin
a1 := TMyComponent.Create(NIL);
end; |
То освобождается он в:
Код: procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil(a1);
end; |
Если это не компонент, а класс типа TStringList, то он создаётся по мере необходимости и освобождается тут же:
Код: procedure TForm1.Button1Click(Sender: TObject);
var
L1: TStringList;
begin
L1 := TStringList.Create;
try
L1.LoadFromFile('...');
L1.Delete(0);
Memo1.Text := L1.Text;
finally
L1.Free;
end;
end; |
А так же чтобы разобраться с подобными вопросами, берётся любая книга по Delphi, читаются начальные главы, и всё пробуется в тестовом приложении. Так же неплохо было бы заглянуть в папочку Borland\Delphi N.0\Demos. |
Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 07:36 16-12-2008 | Исправлено: delover, 10:02 16-12-2008 |
|
