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

Вниз

Цикл не выполняется, что может быть?   Найти похожие ветки 

← →
12 ©   (2010-11-24 15:48) [0]

// первый прогон, pnlBuffer.ComponentCount = 1, все нормально, проходит.
// второй раз, pnlBuffer.ComponentCount = 2, и сразу прыгает на последнюю строчку

var
 i: Integer;
begin
 mmo1.Lines.Add(" pnlBuffer.ComponentCount = " + IntToStr(pnlBuffer.ComponentCount));
 for i := pnlBuffer.ComponentCount - 1 to 0 do
 begin
   mmo1.Lines.Add("11-- pnlBuffer.Components[i].name = " + pnlBuffer.Components[i].ClassName);
   if pnlBuffer.Components[i] is TSubject then
   begin
     mmo1.Lines.Add("22---- pnlBuffer.Components[i].name = " + pnlBuffer.Components[i].ClassName);

     if TSubject(pnlBuffer.Components[i]).MainID = AId then
     begin
       mmo1.Lines.Add("33------ pnlBuffer.Components[i].name = " + pnlBuffer.Components[i].ClassName);

       TSubject(pnlBuffer.Components[i]).Hide;
     end;
   end;
 end;
 mmo1.Lines.Add(" Remove complete");
 pnlBuffer.Refresh;


вывод в мемо

pnlBuffer.ComponentCount = 1
11-- pnlBuffer.Components[i].name = TSubject
22---- pnlBuffer.Components[i].name = TSubject
33------ pnlBuffer.Components[i].name = TSubject
Remove complete

pnlBuffer.ComponentCount = 2
Remove complete


Как такое может быть?!?

---

← →
И. Павел ©   (2010-11-24 15:51) [1]

for i := pnlBuffer.ComponentCount - 1 downto 0 do

---

← →
12 ©   (2010-11-24 15:54) [2]

блииинннннннн......
два часа минус и порождение сомнений в объективности этого мира :)

спасибо, конечно же :))

---

← →
12 ©   (2010-11-24 15:55) [3]

я - осел!
:)

---

← →
И. Павел ©   (2010-11-24 15:56) [4]

Под конец рабочего дня у меня и не такое бывает :)

---

← →
Anatoly Podgoretsky ©   (2010-11-24 15:57) [5]

> 12  (24.11.2010 15:48:00)  [0]

for i := pnlBuffer.ComponentCount - 1 to 0 do

Что за дурь ты написал, смотри в справке как пишется цикл for

---

← →
Anatoly Podgoretsky ©   (2010-11-24 16:00) [6]

> 12  (24.11.2010 15:55:03)  [3]

Ну мы только подтвердили, мы наблюдатели.

---

← →
12 ©   (2010-11-24 16:05) [7]

да написал было с TO, нормально написал, с 0 и до СomponentCount -1.
Потом подумал, что если потом буду Free применять, то надо бы наоборот, не с 0, а с componentCount -1 считать, ну и переставил местами, а TO на DOWNTO не переправил..

:)

---

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

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

Наверх

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