•  

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

Создано: 01.08.2010 20:18:01 · Исправлено: 01.08.2010 20:18:01 · Прочтений: 1026

// Кол-во вхождений символа в строку
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;