Контроль ввода данных в 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;

;)

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