[WeG]

Как посчитать количество Слов в текскте в мемо?

[Ferra]

Можно как количество пробелов +1. Так проще всего. Или предлоги с союзами не нужно?

Ну есть ещё ньюансы если есть перенос строки, но думаю мысль ясна.

[WeG]

нужно все считать и предлоги, и союзы.

[WeG]

функция но она не работает может кто подскажет почему

Код:

function KolSlov(var AMemo : Tmemo) : integer; 
Var
  n : integer;
  i : byte;
Begin
  n := 0;
  for i := 1 to AMemo.Lines.Count-1 do
    begin
      if (AMemo.Lines[i]<>' ') and (AMemo.Lines[i+1]=' ') then
        n:=n + 1;
    end;
end;

функция вызывается следующим образом:

Код:

  ValueListEditor2.Values['Слов'] := IntToStr(KolSlov(memo1));

[Ferra]

Сообщение от WeG

нужно все считать и предлоги, и союзы.

Ога, сам бы написал лучше

Функция:

Код:

function WordCount(Text : String) : LongWord;
var
 i : LongWord;
begin
Result:=0;
 for i:=0 to Length(Text) do
  if (Text[i]=' ') or ((Text[i]=#13) and (Text[i+1]=#10)) then inc(Result);
 if Result<>0 then inc(Result);
end;

Вызов:

Код:

ShowMessage('Words count: '+IntToStr(WordCount(Memo1.Text)));

Работает если между словами есть пробел, либо если есть переводы строк. Дерзай
PS> Кстати 2 пробела между двумя словвами ставить нельзя))

[Ferra]

Сообщение от WeG

функция но она не работает может кто подскажет почему

Код:

function KolSlov(var AMemo : Tmemo) : integer; 
Var
  n : integer;
  i : byte;
Begin
  n := 0;
  for i := 1 to AMemo.Lines.Count-1 do
    begin
      if (AMemo.Lines[i]<>' ') and (AMemo.Lines[i+1]=' ') then
        n:=n + 1;
    end;
end;

функция вызывается следующим образом:

Код:

  ValueListEditor2.Values['Слов'] := IntToStr(KolSlov(memo1));

Потому как Lines - это строки. а тебе нужно их содержимое.

[WeG]

Спасибо огромное! Все, дошло до меня

[Asinkrit]

Подсчет кол-ва слов, подсчетом кол-ва пробелов.
На самом деле не самый удачный способ считать пробелы, так как, если пробелы будут вподряд стоять, то кол-во слов подсчитает неправильно.

Код:

function GetWordsCount(const aMemo:TMemo):Integer;
var
  i:integer;
begin
  Result:=0;
  with aMemo do
    if Length(Text)>0 then
      begin
      for i:=1 to Length(Text) do
        if (Text[i]  in [' ', #13]) then
          Inc(Result);
      if not (Text[i] in [' ', #13]) then inc(Result);
      end;
end;