Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
2-1281521447
unknow
2010-08-11 14:10
2010.11.14
Как избежать повторного ввода данных в базу?


2-1281961993
12
2010-08-16 16:33
2010.11.14
как AnsiUpperCase для одного символа на русском?


2-1281707135
PavDimka
2010-08-13 17:45
2010.11.14
Передача данных через интернет


2-1282442149
Гость
2010-08-22 05:55
2010.11.14
Можно ли сделать, чтоб при нажатии Alt, не включалось меню?


15-1281040197
Юрий
2010-08-06 00:29
2010.11.14
С днем рождения ! 6 августа 2010 пятница