Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c