Глюк С PageControl

← →
BLooDMaN © (2003-02-03 20:01) [0]

Есть pagecontrol динамически создаю TabSheet (кол-во неизвестно
заранее (это редактор файлов c закладками)) чтобы ех все можно было
закрыть использую такой код:
For N:=0 To lbGeneral.Items.Count-1 do begin
pcMain.Pages[N].Free;
lbGeneral.Items.Delete(N);
end;
lbGeneral это Listbox c путями до файлов( но это не важно) Индекс
страници(TabSheet) совпадает с индексом ЛистБокса так вот котда я
это выполняю пропадает ПОЛОВИНА станиц причем через одну! т.е
остаются 1,3,5,7,9 и т.д и вылезает ошибка List index out of bounds
равное половине Listbox.items.count . Блин не знаю что делать .Код в
4 строчки ....... :((((((
Плизз помогите!!!!

← →
Clickmaker © (2003-02-03 20:07) [1]

For N:=lbGeneral.Items.Count-1 downto 0 do begin

← →
troits © (2003-02-03 20:18) [2]

:)

for N := 0 To lbGeneral.Items.Count - 1 do
begin
pcMain.Pages[0].Free;

← →
BLooDMaN © (2003-02-03 20:51) [3]

>Clickmaker ©
ща попробую

>troits ©
это типа шутка да?

НЕ СМЕШНО

← →
BLooDMaN © (2003-02-03 20:53) [4]

>Clickmaker ©
Спасибо все заработало.

← →
Романов Р.В. © (2003-02-03 20:59) [5]

> >troits ©
> это типа шутка да?

Нет это серьезно

Как же это может быть серьездно если мне надо убрать N-ое (!!) количество странич ,а не первую,а ?? .... Вообщем посмотри код может и поймешь.

troits прав!!!
Это действительно не шутка.

while lbGeneral.Count > 0 do begin pcMain.Pages[0].Free; lbGeneral.Items.Delete(0); end;

Подумай хорошенько!!!

Глюк С PageControl Найти похожие ветки