|
#1
|
|||
|
|||
как сделать
как сделать перевод в верхний регистр первого вводимого символа русского алфавита в Edit
|
#2
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Edit1Change(Sender: TObject); begin if (Length(edit1.Text) = 1) then begin if ((Ord(edit1.Text[1]) >= 224) and (Ord(edit1.Text[1]) <= 255)) then begin edit1.Text := AnsiUpperCase(edit1.Text); edit1.SelStart := 1; end; end; end; --------------------------------------------- Программирование - не профессия, а стиль жизни |
#3
|
|||
|
|||
спасибо очень помогло
|