Главная страница
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.019 c
15-1230106923
igan
2008-12-24 11:22
2009.02.22
Формат хранения времени в файле


2-1231421470
SAVA
2009-01-08 16:31
2009.02.22
tdatetime


11-1197536513
Dodfr
2007-12-13 12:01
2009.02.22
Hide Tab inside TabControl ?


15-1230192410
Елена0010001
2008-12-25 11:06
2009.02.22
Как правельно устанавливать TBassPlayer ?


2-1231673189
Pavel
2009-01-11 14:26
2009.02.22
Выполнение SQL-скрипта в Delphi