Главная страница
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.016 c
2-1282274883
Гость
2010-08-20 07:28
2010.11.14
Подскажите простой компонент для рисования графика по точкам?


11-1226388197
Максим
2008-11-11 10:23
2010.11.14
Ошибка в последнем дистрибутиве KOL MCK!


2-1282152063
zlodey
2010-08-18 21:21
2010.11.14
список IXMLNode


2-1282162174
Kinnermann
2010-08-19 00:09
2010.11.14
Отслеживание изменения экрана


15-1281080893
Knight
2010-08-06 11:48
2010.11.14
Как сделать быструю загрузку файла для просмотра?