Зацикливается программа? Почему?

[ivt22]

  i := 0;
  while (lcolor <> $00202020) or (i <> 60) do begin
    lColor := image.Canvas.Pixels[i, 9];
    memo1.Lines.Add(IntToSTr(i)+') '+ColorToString(lColor));
    i := i + 1;
  end;

Если не находит нужный цвет, то программа зацикливается до бесконечности, в чем ошибка? Вроде написал условие ИЛИ, но почему-то не работает.

while lcolor <> $00202020 do begin - работает
while i <> 60 do begin - работает
while (lcolor <> $00202020) or (i <> 60) do begin - не хочет

[Stilet]

Надо не ИЛИ а И.

[ivt22]

Сообщение от Stilet

Надо не ИЛИ а И.

Спасибо помогло, но тогда зачем нужен оператор ИЛИ))

[Stilet]

И я вот сижу и думаю - зачем он нужен?

[Serge_Bliznykov]

Сообщение от ivt22

Спасибо помогло, но тогда зачем нужен оператор ИЛИ))

для тех случаем, когда нужно, чтобы выолнялось ИЛИ одно логическое условие ИЛИ другое.

например, в коде можно так написать:

while not ((lcolor = $00202020) or (lcolor = clBlack)) and (i <> 60) do begin