Вывод количества определенных букв!

[Сия05]

Какой код что бы подсчитывал количество букв "а" в словах?

[NetSpace]

инструменты:
1) цикл while
2) процдура поиска Pos()
3) процедура удаления символов Del
4)счётчик в виде какой-то переменной, типа count
вам осталось собрать всё это воедино и наслаждаться результатом

[evg_m]

2) процдура поиска Pos()
3) процедура удаления символов Del

можно и не удалять ЕСЛИ воспользоваться "расширенным" поиском PosEx

[Arigato]

А можно и просто циклом все символы перебрать и посчитать.

[digitalis]

"Лёгкие пути - не для нас" © не помню кто

[сфинкс]

прошлогодний алгоритм количества букв

https://www.programmersforum.ru/show...7&postcount=89

идея: выделение каждой буквы и сравнение

и ещё всеобъемлющие гигантские примеры

https://rosettacode.org/wiki/Letter_frequency
rosettacode.org/wiki/Letter_frequency

[NetSpace]

мы, физики, лёгких путей не ищем!

[D1973]

uses ..., LazUTF8;
...
function LetterCount(Text, Letter: String): integer;
begin
  result := UTF8Length(Text) - UTF8Length(UTF8StringReplace(Text, Letter, '', [rfReplaceAll]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(LetterCount(Edit2.Text, Edit1.Text));
end;