| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перевод символов в верхний регистр при вводе [D6, Win2k]
Last © (2004-07-28 07:58:00)Господа! Подскажите,пожалуйста, ответ на простой вопрос. Срочно надо. Как при вводе символов, например в Edit, преобразовывать их к верхнему регистру?
TUser (2004-07-28 08:57:00) [1]procedure TForm1.Edit1KeyPress;
begin
key:=upcase(key);
{
if key in ['a'..'z'] then
key:=chr(ord(key)-(ord('a')-ord('A')));
}
end;
Андрей Л. (2004-07-28 08:31:00) [2]
Edit1.CharCase:=ecUpperCase;
Думкин (2004-07-28 08:15:00) [3]AnsiUpperCase + onKeyPress
| |
