| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Контроль ввода данных в Edit [D7]

Garacio ©   (2007-01-25 08:49:00) 

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

---

Officeman   (2007-01-25 10:28:00) [1]

;)

---

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

хе-хе.. найдите 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;


---

Garacio   (2007-01-25 08:58:00) [3]

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

---

Elen   (2007-01-25 08:58:00) [4]

> unknown

не успел ;-P

---

unknown   (2007-01-25 08:57:00) [5]

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;

---

Elen   (2007-01-25 08:56:00) [6]

> 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.

---

Loginov Dmitry   (2007-01-25 08:55:00) [7]

UpperCase()

---

Наверх