Текущий архив: 2004.08.08;
Скачать: CL | DM;
Вниз
Перевод символов в верхний регистр при вводе Найти похожие ветки
← →
Last (2004-07-28 07:58) [0]Господа! Подскажите,пожалуйста, ответ на простой вопрос. Срочно надо. Как при вводе символов, например в Edit, преобразовывать их к верхнему регистру?
← →
Думкин © (2004-07-28 08:15) [1]AnsiUpperCase + onKeyPress
← →
Андрей Л. (2004-07-28 08:31) [2]
Edit1.CharCase:=ecUpperCase;
← →
TUser © (2004-07-28 08:57) [3]procedure TForm1.Edit1KeyPress;
begin
key:=upcase(key);
{
if key in ["a".."z"] then
key:=chr(ord(key)-(ord("a")-ord("A")));
}
end;
Страницы: 1 вся ветка
Текущий архив: 2004.08.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
