программа поиска символов в строке Опции

[!Ursula!]

мне нужно определить сколько раз во введенном предложении встретились буквы "п", "р", "С". Есть ли какая-нибудь функция в делфи для поиска символов в строке?
и еще, как проверить строку на НЕпустоту?

[Бродяжник]

Функция Pos возвращает позицию первого вхождения подстроки Substr в заданную строку S.

function Pos(Substr: string; S: string): Integer;

Пример (из стандартной справки)

Код

var S: string;

begin
  S := '   123.5';
  { Заменяет пробелы нулями }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

Кстати, из этого примера несложно сделать и подсчет вхождений.

Далее: функция Trim удаляет из строки ограничивающие пробелы. Если в строке ничего, кроме пробелов нет, Trim вернет пустую строку. Поэтому:

Код

If Trim(BlaBlaBla)='' then Writeln('строка BlaBlaBla пустая');

По-моему, так.