Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.11;
Скачать: CL | DM;

Вниз

Контроль ввода данных в Edit   Найти похожие ветки 

 
Garacio ©   (2007-01-25 08:49) [0]

1. Как автоматически введённые в Edit буквы делать заглавными?
2. Как разрешить вводить только латинские буквы и цифры?


 
Loginov Dmitry ©   (2007-01-25 08:55) [1]

UpperCase()


 
Elen ©   (2007-01-25 08:56) [2]


> 1. Как автоматически введённые в Edit буквы делать заглавными?

Edit1.CharCase:=ecUpperCase;

> 2. Как разрешить вводить только латинские буквы и цифры?

Например так :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ["0".."9"])or(key in ["a".."z"])) then key:=#0;
end;

Можно еще через MaskEdit.


 
unknown ©   (2007-01-25 08:57) [3]

1. Edit.CharCase:=ecUpperCase;
2.
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: char);
begin
 if not (key in ["A".."Z", "a".."z", "0".."9"]) then
   key := #0;
end;


 
Garacio ©   (2007-01-25 08:58) [4]

Спасибо! Вопросов больше нет!


 
Elen ©   (2007-01-25 08:58) [5]


> unknown

не успел ;-P


 
ASoft   (2007-01-25 10:19) [6]

хе-хе.. найдите 2 отличия :-)

if not((key in ["0".."9"])or(key in ["a".."z"])) then key:=#0;
if not (key in ["A".."Z", "a".."z", "0".."9"]) then key := #0;


 
Officeman ©   (2007-01-25 10:28) [7]

;)



Страницы: 1 вся ветка

Текущий архив: 2007.02.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
15-1169106808
_ozzy_
2007-01-18 10:53
2007.02.11
Как переключит размер шрифта Windows на нормальный?


15-1169118389
Ксардас
2007-01-18 14:06
2007.02.11
подскажите плз сервер


2-1168617556
compiller
2007-01-12 18:59
2007.02.11
Указатели


4-1159698620
AlexeyT
2006-10-01 14:30
2007.02.11
Вывод арабского текста (справа-налево)


2-1169569383
Andy BitOff
2007-01-23 19:23
2007.02.11
Уничтожение созданных объектов