Пример работы со строками в delphi

Posted by Chas under Пост-обзор

1 заменить «о» на «а»
2 определить количество цифр в тексте, подсчитать их сумму
3 удалить все цифры из текста
4 подсчитать количество (суммарное вхождение букв «м» и «н»), стоящих на нечетных позициях

fenryr:

1. str := '333ооо333о8ооо99л';
   
   str := AnsiReplaceStr(str , 'о','а');

2.  str := '3ооо3о8ооо02л';
   
      sum := 0;
   
      count := 0;
   
      for i := 1 to length (str) do
   
       if str in ['0'..'9'] then
   
         begin
   
          sum := sum + integer(integer(str) - 48);
   
          count : count + 1;
   
         end;

3. str := '3ооо3о8ооо02л1';
   i := 1;
   while i <= length (str) Do Begin if (str[i] in ['0'..'9']) Then Delete (str,i,1) Else i := i + 1; End;[/code]

4. str := 'амаанммннн';
   i := 1;
   count := 0;
   while i <= length (str) Do Begin if (str[i] in ['м','н']) and (i mod 2 = 1) Then Inc (count); inc (i); End;[/code]

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

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

• Как вставить в текст знак апостроф — ‘?
• Как разбить текст по определённому количеству символов?
• Как удалить пустую строку в memo?
• Перенести программу из Delphi в Lazarus
• Функция pos, как искать далее?
• Выполнение задач на Assembler при нажатии на клавишу
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы
• Подсчет числа слов в строке по заданному условию
• Работа со строками, замена символов
• Тест в Delphi с помощью RadioGroup