Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Динамические объекты   Найти похожие ветки 

← →
panov   (2002-01-15 10:05) [3]

"Free работает корректно даже если объект - nil"
А с чего ты взял, что у тебя ссылка на объект nil?

Var
BA : array [1..50] of TSpeedButton;
...

for i := 1 to NumButton do
begin
if Assigned(BA[i]) then TSpeedButton(BA[i]).Free;
BA[i] := nil;
end;

...

NumButton := NewNumButton;

for i := 1 to NewNumButton do
begin
BA[i] := TSpeedButton.Create(nil)
...
BA[i].Parent := Form1;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c