Тема: Вытащить из текста все слова ничинающиеся на Сверх
Показать сообщение отдельно

  #7  
Старый 08.06.2010, 10:42
M_script_
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761

Репутация: 180
Отправить сообщение для M_script_ с помощью ICQ
По умолчанию
все просто
PHP код:
while(sText.Pos("сверх"))
{
    sText.Delete(1, sText.Pos("сверх") + 5 - 1);
    sWord = sText;
    sWord.SetLength(sWord.Pos(" ") - 1);
    Memo1->Lines->Add("сверх" + sWord);
}