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

← →
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

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

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

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

:)

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