Подсчет числа слов в строке по заданному условию

Posted by obzor under Delphi

Дана строка символов, содержащая слова. Определить количество слов, первый и последний символы которых совпадают, если же таких слов нет то выдать на экран соответствующее сообщение.

newerow1989

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    s,s1:string;
begin
   s:=Edit1.Text;
   n:=0;
   Repeat
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         s:=Copy(s,i+1,Length(s));
      end else
      begin
         s1:=s;
         s:='';
      end;
      If (s1<>'') and (s1[1]=s1[Length(s1)]) then
         n:=n+1;
   Until s='';
   If n=0 then
      Caption:='Нет таких слов!' else
      Caption:='Кол-во слов: '+IntToStr(n);
end;

тема на форуме

Похожие статьи

• Функция pos, как искать далее?
• Выполнение задач на Assembler при нажатии на клавишу
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы
• Работа со строками, замена символов
• Как из строки получить время?
• Посчитать кол-во восклицательных знаков в тексте
• Универсальная функция для получения из строки определённого фрагмента
• Посчитать количество знаков в edit
• Функция удаления не нужных тегов. Быстродействие
• Автоматическое добавление строк в StringGrid