Непонятная ошибка

[Slash]

for i:=0 to a.Count
do
if a.Strings[i]=combobox1.Text
then listbox1.Items.Add(a.Strings[i]) else
i:=i+1;

Выдаёт ошибку Assignment to FOR-Loop variable "i"

Делфи занимаюсь немного, что за ошибка не знаю. Подскажите пожалуйста чё делать?
Заранее спасибо

[Jeni]

Нельзя менять переменную цикла (в данном случае i) во время работы цикла - это делает автоматически!

[rpy3uH]

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

Подскажите пожалуйста чё делать?

используй repeat until

[Jeni]

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

for i:=0 to a.Count do

Кстати, тут ошибка в индексах. Нужно писать

for i:=0 to a.Count - 1 do

Иначе возникнет ошибка при попытке использовать несуществующий элемент списка.

[Alex21]

да, хоть вот так:

i:=0;
  while i < a.Count do
     begin
       if a.Strings[i]=combobox1.Text
          then listbox1.Items.Add(a.Strings[i]) 
      else
          i:=i+1;
end;

[Jeni]

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

да, хоть вот так:

Интересно, если все-же выполнится сравнение, сколько времени в таком случае понадобится системе для исчерпания свободной памяти?

[Slash]

Всем спасибо)