Текущий архив: 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.021 c
