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

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

// Кол-во вхождений символа в строку
function SymbolEntersCount(s: string; ch: char): integer;
var
  i: integer;
begin
  Result := 0;
  if Trim(s) <> '' then
    for i := 1 to Length(s) do
      if s[i] = ch then
        inc(Result);
end;

Here's the translation of the text into Russian:

Функция SymbolEntersCount принимает два параметра: s (строка) и ch (символ). Она инициализирует переменную Result в 0, которая будет хранить количество вхождений.

Если входная строка s не пуста после удаления ведущих или.trailing whitespace, функция проходит по каждому символу в строке с помощью цикла for.

Внутри цикла она проверяет, если текущий символ совпадает с заданным символом ch. Если это так, она увеличивает переменную Result на 1.

Функция возвращает конечное количество, хранящееся в Result.

Пример использования этой функции:

var
  myString: string := 'Hello World!';
  charCount: integer;
charCount := SymbolEntersCount(myString, 'o');
ShowMessage(IntToStr(charCount)); // Вывод: 2

В этом примере функция будет считать количество вхождений символа 'o' в строке 'Hello World!' и отобразит результат.

Альтернативные решения могут включать использование метода Count, предоставляемого типом строки Delphi:

function SymbolEntersCount(s: string; ch: char): integer;
begin
  Result := s.Count(ch);
end;

Эта APPROACH более компактна и эффективна, так как она использует встроенный метод вместо реализации логики счета вручную.

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

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

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