[Asira]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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]

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

Код:

1

s.Free;

[Bars1992]

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

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

Код:

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

[Страдалецъ]

В случае с обычной переменной типа integer или char действительно освободится само, т.к. размер высвобождаемой памяти можно определить легко по ее типу, а вот с классовыми переменными как в данном случае TStringList такой фокус уже не прокатывает т.к. в методах этого класса могут быть созданы настолько сложные конструкции, что ориентируясь только по размеру этого класса высвободить правильно захваченную память не представляется возможным. Вот собственно для этого и открыт пользователю метод Free, в противном случае необходимости в нем просто отпала-бы.

[Asira]

Мне необходимо выполнить без классов!!!На элементарном уровне чтоб в Паскале тож работала!!!