Лазарус

[NAt]

Лазарус

здравствуйте, подскажите пожалуйста с задачей:Задан список ListBox1 из 50 названий городов. Переписать в список ListBox2 только те города в названии которых есть более одной буквы «о». Заранее спасибо)

 

[interacia]

в обработчике какого нибудь события (к примеру клик кнопки)

var
j,i:integer;
s:string;
bol:integer;
begin
// 50 не 50. цикл лучше организовать на всякий случая до конца списка.
 for i:=0 to ListBox1.Count-1 do
  begin
  s:=ListBox1.Items[i];
  bol:=0;
   for j:=0 to length(S) do
   begin
    if (s[j]='o')or(s[j]='O')or(s[j]='о')or(s[j]='О') then inc(bol);
   end;

   if bol>1 then ListBox2.Items.Add(s);

  end;
end;