Подсчет количества слов в строкеDelphi , Синтаксис , Текст и СтрокиПодсчет количества слов в строке
Автор: Алексей Вуколов { **** UBPFD *********** by delphibase.endimus.com **** >> Подсчет количества слов в строке. Возвращает количество слов в строке, границы слов определяются в соответствие с набором разделителей. Описание параметров: s - строка, в которой происходит подсчет слов; Delimiters множество, содержащее символы-разделители слов; Возвращаемое значение - количество слов Зависимости: SysUtils, UBPFD.WordScan Автор: vuk, vuk@fcenter.ru Copyright: Алексей Вуколов Дата: 18 апреля 2002 г. ***************************************************** } function CountWords(const s: string; Delimiters: TSysCharSet): integer; var wStart, wLen: integer; begin Result := 0; wStart := 1; while WordScan(s, wStart, wLen, Delimiters) do begin inc(Result); inc(wStart, wLen); end; end; Пример использования: WordCount := CountWords('This is a sample', [' ']); Статья Подсчет количества слов в строке раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |