[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));