Показать сообщение отдельно
  #1  
Старый 18.05.2010, 21:38
Cors Cors вне форума
Прохожий
 
Регистрация: 30.04.2010
Сообщения: 5
Репутация: 10
Стрелка Преобразование первой буквы Edit в заглавную

Когда пользователи вводят данные, часто они должны их форматировать нужным способом. Чтобы не зависеть от пользователя, Вы должны заставить программу сделать эту работу.

Например, если пользователь напечатает имя прописными буквами, программа должна автоматически преобразовать первую букву имени или фамилии в заглавную.

Код:
with Sender as TEdit do
    if (SelStart = 0) or 
       (Text[SelStart] = ' ') then
          if Key in ['a'..'z'] then 
             Key := UpCase(Key) ;

Этот код идёт тока на латинский, а мне надо его сделать на русский чтоб также работал.
Ответить с цитированием