Показать сообщение отдельно
  #3  
Старый 17.06.2010, 23:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Фигня!
Режем текст по точкам на подстроки. Далее первую букву каждой строки делвем большой (AnsiUpperCase поможет). и в конце склеиваем их через пробел. Нужны функции Pos, Copy, AnsiUpperCase, цикл и немного головы
Ответить с цитированием