Преобразование первой буквы Edit в заглавную

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

Добавьте следующий код в событие OnKeyPress компонента Edit1:

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

Теперь программа будет сама преобразовывать первую букву каждого введенного слова в заглавную.

Примечание: Функция UpCase переводит символ в верхний регистр (только латинский).

—

01.09.2016

coder

Преобразование первой буквы Edit в заглавную

Комментарии