Вроде ничего особо сложного.
1. Разбиваем строку на отдельные слова, ориентируясь п пробелу. Тут хорошо поможет функция WrapText(S,' ',#13#10,1)
2. Записываем полученные текст скажем в TStringList. Теперь удобно обращаться к каждому слову как к элементу массива.
3. Теперь надо убрать "не цифры" из каждого слова. Можно воспользоваться функцией ReplaceString, но придется перечислять много буковок для замены, лучше наверное наоборот просто в цикле извлечь цифры.
4. Ну и в финале вывести все полученые таким образом числа.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
|