•  

ГлавнаяРабота с текстом и строками → Подсчет количества вхождений символа в строке

Создано: 01.08.2010 19:12:13 · Исправлено: 01.08.2010 19:12:13 · Прочтений: 2007

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

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

Зависимости: Стандартные модули
Автор:       Ru, [email protected], Одесса (Украина)
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;