Главная страница
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.009 c
2-1282122542
12
2010-08-18 13:09
2010.11.14
плавает панелька на форме. Почему?


3-1236772625
Ulugbek
2009-03-11 14:57
2010.11.14
DBgridEh ошибка фильтре Error in expression


15-1280996881
abun
2010-08-05 12:28
2010.11.14
Как программно отследить события


15-1280441833
Германн
2010-07-30 02:17
2010.11.14
Кстати. День сисадмина.


15-1280862868
Kerk
2010-08-03 23:14
2010.11.14
Про колбасу