Тема: Помогите, подскажите
Показать сообщение отдельно
  #2  
Старый 18.04.2012, 16:08
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
  
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию
Нужно небольшие исправления внести
юнит unitText
строка 44
Код:
if (Ord(c)>31) and (Ord(c)<255) then buff:=buff+c;
строка 70
Код:
if text[1] in ['A'..'Z','А'..'Я'] then ok:=true;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием