Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.13;
Скачать: CL | DM;

Вниз

выводятся только первые 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 что придется разбираться, берите пиво...



Страницы: 1 вся ветка

Текущий архив: 2004.01.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
1-37616
~GaMeRd~
2003-12-28 14:31
2004.01.13
работа с TStrings


1-37642
MScorp
2003-12-26 17:34
2004.01.13
Получить Handle без Application


6-37827
AlexanderSK
2003-11-10 16:54
2004.01.13
Несколько HTTP запросов один за одним


1-37686
Vitaliygavrilov
2003-12-26 11:20
2004.01.13
как сделать недоступным раскрытие до полного окна


1-37795
UNick
2003-12-29 12:27
2004.01.13
Как сделать, чтобы исполнялось нажатие клавиши в OnChange