Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.02.22;
Скачать: CL | DM;

Вниз

посчитать количество слов в строке   Найти похожие ветки 

 
S.S.T.   (2009-01-10 16:23) [0]

Необходимо посчитать количество слов в строке. Вот код который я написал:, Есть ли другие, более оптимальные варианты реализации?

function WordsCount(const S : string; Delimiters: TCharSet): Integer;
var
 L, R : Integer;
begin
  Result := 0;
  L := 1;
  R := Length(S);
  if R = 0 then
    Exit;
  while True do
  begin
    while S[L] in Delimiters do
    begin
      Inc(L);
      if L > R then
        Exit;
    end;
    Inc(Result);
    while not (S[L] in Delimiters) do
    begin
      Inc(L);
      if L > R then
        Exit;
    end;
  end;
end;

Как можно


 
Правильный$Вася   (2009-01-10 16:36) [1]

с for и флагом перехода от слова к неслову было бы проще


 
DFT   (2009-01-10 22:46) [2]

Если используете BDS 2005, то можно еще попробывать использовать TStringList, должно сработать


function GetWordsCount(range: string; delimeter: char): integer;
var
 LS: TStringList;
begin  
 LS:=TStringList.Creaye;
 try
   LS.LineBreak:=char;
   LS.Text:=range;
   result:=LS.Count;
 finally
   LS.Free;
 end;
end;


 
Правильный$Вася   (2009-01-12 13:01) [3]


> DFT   (10.01.09 22:46) [2]

1. ничуть не быстрее
2. разделитель слов может быть не один



Страницы: 1 вся ветка

Текущий архив: 2009.02.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
10-1152847014
Rossiev
2006-07-14 07:16
2009.02.22
Как вставить построенный MSGraph в Excel?


2-1231431032
Johnnnn
2009-01-08 19:10
2009.02.22
Как грамотно вынести процедуру в отдельный модуль?


15-1229817686
Eraser
2008-12-21 03:01
2009.02.22
Java & MS CryptoAPI


2-1231133789
EastGod
2009-01-05 08:36
2009.02.22
Файлы из интерента-заблокированы


1-1207677282
Тыщ
2008-04-08 21:54
2009.02.22
Как выравнить код и данные на границу 16 байт?