| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Глюк  С PageControl [D6, Win2k]

BLooDMaN ©   (2003-02-03 20:01:00) 

Есть 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 строчки ....... :((((((
Плизз помогите!!!!

---

Yttrium   (2003-02-04 01:58:00) [1]

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

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

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

---

bloodman   (2003-02-04 00:04:00) [2]

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

---

Романов Р.В.   (2003-02-03 20:59:00) [3]

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


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

---

BLooDMaN   (2003-02-03 20:53:00) [4]

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

---

BLooDMaN   (2003-02-03 20:51:00) [5]

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


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

НЕ СМЕШНО

---

troits   (2003-02-03 20:18:00) [6]

:)

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

---

Clickmaker   (2003-02-03 20:07:00) [7]

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

---

Наверх