Главная страницаОбратная связьКарта сайта

Подсчет количества слов в строке

Автор: Алексей Вуколов
WEB-сайт: http://delphibase.endimus.com

{ **** 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", [" "]);

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Подсчет количества слов в строке", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info