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

Вниз

Как мне у предложения отрезать последнее слово и записать.....   Найти похожие ветки 

 
Relaxxx   (2004-09-15 18:45) [0]

Здраствуйте мастера, не подскажите
Как мне у предложения отрезать последнее слово и записать его в какую-то переменную???


 
MetalFan ©   (2004-09-15 18:55) [1]

че то типа етого? не проверял, работает оно или нет...
function GetLastWord( aString: string ): string;
var
 lChr: Char;
 I: Integer;
begin
 result := "";
 if length( aString ) = 0 then exit;
 I :=  length( aString );
 lChr := aString[I];
 While not ( lChr in [" ",",","-"] ) do
 begin
   Result := lChr + Result;
   Dec(I);
   if I <= 0 then break;
   lChr := aString[I];
 end;
end


 
Anatoly Podgoretsky ©   (2004-09-15 19:12) [2]

Дай определения слова


 
_student   (2004-09-15 19:17) [3]

Идешь с конца предложения и ищеш пробел. Как только находишь пробел отрезаешь слово в переменную. Всё.


 
Relaxxx   (2004-09-15 19:31) [4]

Anatoly Podgoretsky слово это совокупность букв перед которыми стоит пробел, запятая или еще что-то!
MetalFan спасибо, все работает!!!


 
Jel ©   (2004-09-15 19:34) [5]

А если предложение состоит только из одного слова?


 
Anatoly Podgoretsky ©   (2004-09-15 19:34) [6]

Вот и сканируй с конца в сторону начала на свои ограничители, как встретишь то считай это оно СЛОВО



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

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

Наверх




Память: 0.48 MB
Время: 0.02 c
14-1094826117
Ренат
2004-09-10 18:21
2004.10.03
Вот сайтик по Дельфи


4-1093427216
beatles_bntu
2004-08-25 13:46
2004.10.03
Системный запуск приложения под XP


11-1081152232
Неуловимый Джо
2004-04-05 12:03
2004.10.03
OnMouseLeave и PControl


3-1094019462
bSava
2004-09-01 10:17
2004.10.03
Непонятное поведение FB1.5


9-1086525671
Nightfure
2004-06-06 16:41
2004.10.03
SOS!!!!!