выводятся только первые 3 слова ПЕРВОГО предложени

← →
Anka12345 (2003-12-27 18:05) [0]

procedure TPT3.slova(s1: string);
var
i,n: integer;
w: string;
begin
i:=1;
n:=0;
w:="";
while (i<= length (s1)) and (s1[i]=" ") do i:=i+1;

while (i<= length (s1)) and (s1[i]<>" ") and (s1[i]<>".") do
begin
w:=w+s1[i];
inc(i);
end;

while i<= length (s1) do
begin
if (n<4) and (s[i]<>".") then
begin
while (i<= length (s1)) and (s1[i]=" ") and (n<4) do
i:=i+1;
w:=w + " ";
n:=n+1;
while (i<= length (s1)) and (s1[i]<>" ") and (s1[i]<>".") do
begin
w:=w+s1[i];
inc(i);
end;

end;
if s1[i]=" " then inc(i);
n:=n+1;

end;
Form1.edit3.Text:=w;
end;

procedure TPT3.execute;
begin
inherited;
repeat
if s<>"" then slova(Form1.Memo1.Text);
until Suspended;
end;
-----------------------------------------------------------------------
=======================================================================
Ребята, подскажите пожалуйста, что надо здесь изменить, чтобы выводились только 3 первых слова каждого предложени .
А то выводятся только первые 3 слова ПЕРВОГО предложени и всё.
ПОЖАЛУЙСТА ПОМОГИТЕ ПОБЫСТРЕЕ!!!

← →
olookin (2003-12-27 20:52) [1]

Ребята, подскажите пожалуйста, что надо здесь изменить, чтобы выводились только 3 первых слова каждого предложени .
А то выводятся только первые 3 слова ПЕРВОГО предложени и всё.
ПОЖАЛУЙСТА ПОМОГИТЕ ПОБЫСТРЕЕ!!!

Ну если б тьы спросил как сделать чтоб 4 было или 2... А то 3... Нерешаемо...

← →
iriska (2003-12-27 21:09) [2]

Пошутил:))))
А помощь где??
Подскажи подружке, она ведь глупая.

← →
olookin (2003-12-27 21:14) [3]

Еще разок special for ириска....

Ребята, подскажите пожалуйста, что надо здесь изменить, чтобы выводились только 3 первых слова каждого предложени .
А то выводятся только первые 3 слова ПЕРВОГО предложени и всё.
ПОЖАЛУЙСТА ПОМОГИТЕ ПОБЫСТРЕЕ!!!

Ну если б тьы спросил как сделать чтоб 4 было или 2... А то 3... Нерешаемо

← →
olookin (2003-12-27 21:20) [4]

ага... А вид строки для разбора слов какой?

← →
iriska (2003-12-28 11:32) [5]

anka12345, тебе просто надо обновлять счётчик пробелов - после каждой точки, а вот где обновлять... хм... незнаю

← →
Babay (2003-12-29 09:37) [6]

Так как мы не телепаты то: :=))#
Предпологается, что в предложении слова отделены друг от друга одним пробелом и в конце предложения содержиться точка. Так же предположили что предложение может быть меньше 4-х слов.

Путем новогоднего выпивания пива был найден следующий алгоритм.

Function Slova3(S:String):String;
Var pt:Integer;
s1:String;
i,sp:Integer;
begin
While (s<>"") and (pos(".",s)<>0) do begin
s1:=Copy(s,1,Pos(".",s)); //

← →
Babay (2003-12-29 09:40) [7]

М..да чето на коментарии неглянул :=))#
nfr что придется разбираться, берите пиво...

выводятся только первые 3 слова ПЕРВОГО предложени Найти похожие ветки