Главная страница
    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.46 MB
Время: 0.008 c
6-37819
Vorobyev Sergey
2003-11-12 08:42
2004.01.13
Как определить рабочую группу удаленного компьютера ?


1-37792
Oleg_
2003-12-29 13:04
2004.01.13
двойной клик на title dbgrid


11-37599
help
2003-04-26 06:59
2004.01.13
TKOLListView


1-37624
Kinder
2003-12-18 18:03
2004.01.13
Копируем меню


1-37628
race1
2003-12-27 14:22
2004.01.13
winamp plugin & window





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский