[Oleg]

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

Код:

var
i:integer;
begin
  for i:=cd.Items.Count-1 downto 0 do begin
  if cd.Items[i] = 'test1' then cd.Items.Delete(i);
  if cd.Items[i] = 'test2' then cd.Items.Delete(i);
  if cd.Items[i] = 'test' then cd.Items.Delete(i);
  end;

Этот код тоже дает ошибку, вот как правильно обрабатывается:

Код:

  for i:=cd.Items.Count-1 downto 0 do begin
  if cd.Items[i] = 'test1' then cd.Items.Delete(i);
end;
  for i:=cd.Items.Count-1 downto 0 do begin
  if cd.Items[i] = 'test2' then cd.Items.Delete(i);
end;
  for i:=cd.Items.Count-1 downto 0 do begin
  if cd.Items[i] = 'test' then cd.Items.Delete(i);
end;