Текущий архив: 2010.11.14;
Скачать: CL | DM;

Вниз

как 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

---

← →
Дмитрий С ©   (2010-08-17 03:32) [3]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2010.11.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.006 c