Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.02.13;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
15-1287405980
Ires
2010-10-18 16:46
2011.02.13
Исходники


2-1290508252
Darvin
2010-11-23 13:30
2011.02.13
D2009 Не работают точки останова


2-1290671015
Jacksotnik
2010-11-25 10:43
2011.02.13
stringgrid


2-1290612582
Денис2
2010-11-24 18:29
2011.02.13
Серийный номер монитора


2-1290501543
mem
2010-11-23 11:39
2011.02.13
как строится индекс?