Подсчет количества вхождений символа в строке

Delphi , Синтаксис , Текст и Строки

Автор: DiVo
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Подсчёт количества вхождений символа в строке

Функцийка считает количество повторений
символа заданного InputSubStr в строке InputStr.

Зависимости: Стандартные модули
Автор:       Ru, DiVo_Ru@rambler.ru, Одесса (Украина)
Copyright:   DiVo 2003 creator Ru
Дата:        18 ноября 2003 г.
***************************************************** }

function CntChRepet(InputStr: string; InputSubStr: char): integer;
var
  i: integer;
begin
  result := 0;
  for i := 1 to length(InputStr) do
    if InputStr[i] = InputSubStr then
      inc(result);
end;

Вот перевод текста на русский язык:

Подпись функции

function CntChRepet(InputStr: строка; InputSubStr: символ): целое;

Функция принимает два входных параметра:

• InputStr: строка, в которой нужно найти символ
• InputSubStr: одиночный символ, количество которых нужно посчитать

Функция возвращает целочисленное значение, представляющее количество вхождений.

Декларация переменной

var
  i: целое;

singl variable i is declared as an integer, which will be used as an index in the string iteration.

Тело функции

begin
  result  := 0; // Инициализируем счетчик в 0
  for i  := 1 to length(InputStr) do // Перебираем каждый символ в InputStr
    if InputStr[i]  = InputSubStr then // Проверяем, если текущий символ соответствует InputSubStr
      inc(result); // Увеличиваем счетчик, если это совпадение
end;

В теле функции происходит следующее: 1. Переменная result инициализируется в 0, которая будет хранить окончательное количество вхождений. 2. Цикл перебирает каждый символ в InputStr, начиная с индекса 1 (поскольку Delphi использует 1-основанную индексацию). 3. Для каждого символа проверяется, если он соответствует входному символу InputSubStr. Если это так, переменная result увеличивается с помощью функции inc(). 4. Цикл продолжается, пока не будут обработаны все символы в InputStr.

Пример использования

var
  str: строка;
  char: символ;
begin
  str  := 'Hello World';
  char  := 'o';
  Result  := CntChRepet(str, char); // Подсчитываем количество вхождений символа 'o' в строке 'Hello World'
  writeln(Result); // Вывод: 2
end.

В этом примере функция вернет 2, указывая, что символ 'o' появляется два раза в строке 'Hello World'.

В статье описана функция на языке Delphi, которая подсчитывает количество повторений заданного символа в строке.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::