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

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

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

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

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

    Код:
    with Sender as TEdit do
        if (SelStart = 0) or
           (Text[SelStart] = ' ') then
              if Key in ['a'..'z'] then
                 Key := UpCase(Key) ;
    Теперь программа будет сама преобразовывать первую букву каждого введенного слова в заглавную.

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