Лазарус

NAt · 05.10.2013, 23:38

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

interacia · 15.10.2013, 15:46

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

Код:

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;

05.10.2013, 23:38	#1 (permalink)
NAt Member Регистрация: 09.12.2012 Сообщений: 45 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Лазарус здравствуйте, подскажите пожалуйста с задачей:Задан список ListBox1 из 50 названий городов. Переписать в список ListBox2 только те города в названии которых есть более одной буквы «о». Заранее спасибо)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070