как AnsiUpperCase для одного символа на русском?

← →
12 © (2010-08-16 16:33) [0]

Key := UpCase(Key); - для латиницы
надо и для русского

пока написал
procedure TfrmEditPrice.edtLocateKeyPress(Sender: TObject; var Key: Char);
var
S: string;
begin
s := "";
s := s + Key;
s := AnsiUpperCase(s);
Key := s[1];

← →
Игорь Шевченко © (2010-08-16 16:40) [1]

Charcase не проще поставить у edtLocate ?

← →
KilkennyCat © (2010-08-16 18:22) [2]

if "ё" then "Ё" else +32

procedure TPagesFrame.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
CharUpperBuff(@Key, 1);
end;

Но лучше как Игорь Шевченко посоветовал.

как AnsiUpperCase для одного символа на русском? Найти похожие ветки