Провека "Уничтожен ли компонент"

V88 · 15.03.2010

Всем привет!
Я динамически создаю для PageControl вкладки TabSheets через массив:
var TS:array of TTabSheets;
................
TS[k]:=TTabSheet.Create(Self);
..........

В программе для некоторых случаев надо удалить ненужные вкладки путем PageControl.ActivePage.Destroy

Проблема в том, каким образом определить какая вкладка удалена:
for k:=0 to PageControl.PageCount-1 do
TS[k]..................
В этом коде выдается ошибка из-за того, что какой-то TS[k-й] удален. Другими словами, какой TS[k-й] удален, а какой нет?

Dock1100 · 15.03.2010

Врядле поможет но попробуй

Код:

1 
for k:=0 to PageControl.PageCount-1 do
if TS[k]=nil then f:=0; //или в место nil null

2
for k:=0 to PageControl.PageCount-1 do
try
if TS[k]=nil then f:=0;
except
f:+0;
end;

И в место PageControl.PageCount-1 попробуй length(TS)

V88 · 16.03.2010

TS[k]=nil помогло, только еще надо было к PageControl.ActivePage.Destroy дописать
for i:=0 to PageControl.PageCount-1 do
if PageControl.ActivePage = TS then begin
TS:=nil;
PageControl.ActivePage.Destroy;
end;

Спасибо Dock1100, сам как то и не догадался сразу.

SNike · 12.04.2010

Есть еще полезная штука: FreeAndNil, если не ошибаюсь из модуля SysUtils