Автор: !Ursula! 12.10.2006 9:17
мне нужно определить сколько раз во введенном предложении встретились буквы "п", "р", "С". Есть ли какая-нибудь функция в делфи для поиска символов в строке?
и еще, как проверить строку на НЕпустоту?
Автор: Бродяжник 12.10.2006 12:24
Функция 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 пустая');
По-моему, так.