Нужен аналог UpCase()

← →
Inan61 (2003-02-06 12:37) [0]

В данном примере при вводе в Edit первый символ переводится в верхний регистр, но работает только с латиницей. Как то же самое выполнить с кирилицей?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Edit1.SelStart=0 then Key := UpCase(Key); end;

← →
mrcat (2003-02-06 12:41) [1]

AnsiUpperCase()

← →
JohnnyJ (2003-02-06 12:43) [2]

AnsiUpperCase, но в приведенном примере проще у Edit"а поставить CharCase = ecUpperCase

← →
Inan61 (2003-02-06 12:50) [3]

> JohnnyJ © (06.02.03 12:43)
> AnsiUpperCase, но в приведенном примере проще у Edit"а поставить
> CharCase = ecUpperCase

К верхнему регистру должен преобразовываться только первый символ!

← →
gsu (2003-02-06 13:14) [4]

>> if Edit1.SelStart=0 then Key := UpCase(Key);
тут он и так один

а с 1 символом, например:
simbol:=AnsiUpperCase(Edit1.Text[1]);

Нужен аналог UpCase() Найти похожие ветки