| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как мне у предложения отрезать последнее слово и записать..... [D6, Win2k]

Relaxxx ©   (2004-09-15 18:45:00) 

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

---

Jel   (2004-09-15 19:34:00) [1]

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

---

Anatoly Podgoretsky   (2004-09-15 19:34:00) [2]

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

---

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

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

---

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

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

---

Anatoly Podgoretsky   (2004-09-15 19:12:00) [5]

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

---

MetalFan   (2004-09-15 18:55:00) [6]

че то типа етого? не проверял, работает оно или нет...
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

---

Наверх