Удалить все слова из строки

Posted by micher under Delphi

Teror4uks

В задании нужно удалить все слова до последнего, разделены они естественно между собой пробелами, использую функцию DELETE и POS (для вычисления нахождения пробела), но он почему то удаляет всё до первого пробела, помогите кто знает, как исправить?

Аватар

b:=False;

  for i:=Length(s) downto 1 do

    if s<>' ' then b:=True

    else if b then begin s:=Copy(s,i+1,Length(s)); Break; end;

тема на форуме

Похожие статьи

• Добавить строку с верха вниз StringGrid
• Склонение ФИО
• Как из строки получить время?
• Скопировать html код из текстового файла
• Удаление подстрок из строки за один проход
• Убрать из строки запрещенные символы
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню