[Asira]

Подскажите как посчитать кол-во слов в предложении?

Код:

function harakteristika(s:string):integer;
 var i,j,k,ns,ks,kol,e:integer;
     slovo:string;begin
  kol:=0;i:=1; while i<=length(s) do
  begin

   slovo:='';
   while (s[i]=' ') and (i<=length(s)) do i:=i+1;
   ns:=i;
   while (s[i] <> ' ') and (i<=length(s)) do i:=i+1;
   ks:=i;
   slovo:=copy(s,ns,ks-ns); e:=e+1; 

Admin: Пользуемся тегами!

таким образом я посчитаю кол-во слов во всём тексте... а как возможно посчитать кол-во слов в предложении?( в дальнейшем мне необходимо ещё выделить все предложения в которых 2 слова)((

[Bars1992]

Используй TsringList.

PHP код:

var
 s:TstringList;
begin
 S:=TstringList.Create;
 s.Delimiter:=' ';
 s.DelimitedText:='Твое предложение';
 ShowMessage(inttostr(s.Count));
end; 


[pesi]

Bars1992, а убирать, кто за собой будет?

[Bars1992]

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

Bars1992, а убирать, кто за собой будет?

Ты имел введу ошибке в коде? Если да, то они уже исправлены

[pesi]

Вот что я имел ввиду:

Код:

s.Free;

[Bars1992]

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

Вот что я имел ввиду:

Код:

s.Free;

Можешь посчитать меня лаймером но я задам вопрос. Я обычно думал что после завершения процедуры или функции созданая переменная сама освобождается. Я не прав?