Как подсчитать сколько раз встречается символ в строке?

[zver777]

Надо подсчитать сколько раз встречается определенный символ в строке. Например сколько раз встречается цифра 1 в строке 8513954175411. Должно получиться 4. Могу сделать с помощью while, но вроде есть стандартное средство.

[Alex Cones]

For N:=1 to Length(S) do
 If S[N] = '1' Then Inc(I);

[zver777]

Спасибо, но хотелось бы без цикла так как строк много очень. Вроде есть что-то типа poz.

[Kotofff]

Есть библиотека по работе со строками QStrings называется ...
Там есть функция

function Q_CharCount(const S: string; Ch: Char): Integer;

Эту библиотеку я давал здесь несколько раз ...

P.S. http://programmersforum.ru/showpost....98&postcount=6

[Serge_Bliznykov]

Есть библиотека по работе со строками QStrings называется ...
Там есть функция

function Q_CharCount(const S: string; Ch: Char): Integer;

не смотрел библиотечку, но хочу автора топика разочаровать - чудес не бывает, внутри функции реализация подсчёта ВСЁ равно выполнена с помощью цикла!

[Пепел Феникса]

ТС, вынужден огорчить.
что pos тоже через цикл идет.

[Kotofff]

Serge_Bliznykov, я ведь не "чудо-функцию" привел, а просто ответил примерно на вопрос zver777 в посте #3

[Serge_Bliznykov]

Kotofff, ну что Вы сразу обижаетесь?!
ни к Вам, ни к Вашей библиотеке/функции никаких претензий!
И я ведь не сказал, что Вы плохое посоветовали!!
Просто, я считаю, программист должен писать код, представляя, что там "унутри" программы творится...
Вот я (как и Пепел Феникса) пытались открыть zver777 глаза...

[zver777]

Всем спасибо. Сделал циклом.

[Serge_Bliznykov]

Всем спасибо. Сделал циклом.

вот и замечательно.
Кстати, если строки действительно очень большие и их очень много (т.е. время выполнения алгоритма сколь нибудь существенное число, не доли секунды), то можно попытаться использовать такую конструкцию (если меня не обманывает моя интуиция, это должно дать выигрыш в быстродействии):

  N := Pos(Символ, S);
  if N>0 then begin
    Count := 1;
    For i:=N+1 to Length(S) do
      If S[i] = Символ Then Inc(Count);
  end;

p.s. не проверял, могу и заблуждаться...