Как найти количество n-ого символа в строке?

[zver777]

Есть строка. Мне надо узнать сколько раз в этой строке встречается заданный ранее символ. Думал с помощью pos, но он ищет только до первого встретившегося символа.

[Neeter]

Просматривайте строку в цикле:
В Edit1 строка; В Edit2 символ.

procedure TForm1.bt_3Click(Sender: TObject);
var
 i, n: integer;
begin
 n := 0;
 for i := 1 to Length(Edit1.Text) do
  if Edit1.Text[i] = Edit2.Text[1] then
   inc(n);

 ShowMessage(Format('Символ встречается %d раз', [n]));
end;

[TwiX]

Поправочка:

for i := 1 to Length(Edit1.Text) do

[Neeter]

А что я не так написал? вроде тоже самое вы и написали...

[Вавел из ГМТУ]

У вас написанно: Length(Edit1.Text) - 1

Зачем -1?

[Gorychev]

То же самое в виде функции и без -1 после Length(Edit1.Text):

function find_symbols_in_str(const sorse_str: string; const find_char: char) : integer;
var i: integer;
begin
  result:=0;
  for i := 1 to Length(sorse_str) do
  if sorse_str[i] = find_char then
    inc(result);
end;
...
caption := inttostr(find_symbols_in_str(Edit1.Text, Edit2.text[1]));
...

[Neeter]

ААА, теперь заметил, ну -1 по привычке)
С единицы начал ведь, а дальше забыл)

Исправил.

[TwiX]

Вавел из ГМТУ, Gorychev, зачем повторять уже написанное?)
Neeter, delphi 2009? Тож иногда забываю про -1)