Скачать: CL | DM;

Глюк С 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 ©
> это типа шутка да?


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

---

← →
bloodman ©   (2003-02-04 00:04) [6]

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

---

← →
Yttrium ©   (2003-02-04 01:58) [7]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c