Защита полей - Помощь студентам

Ericnex · 15.04.2011, 20:58

Подскажите,как создать защиту от ввода не корректных данных, грубо говоря защиту от дурака. Например поле должно содержать только числа а пользователь вводит символы. Если возможно то приведите по этому примеру фрагмент кода.субд paradox.

Mad_Cat · 15.04.2011, 21:00

для полей аналогично

Ericnex · 15.04.2011, 21:18

Цитата:

Сообщение от Mad_Cat

для полей аналогично

Я так понимаю везде где key меняем на имя поля.

Mad_Cat · 15.04.2011, 21:21

Цитата:

Я так понимаю везде где key меняем на имя поля.

неправильно вы понимаете (
вместо edit1 - пишем ваше поле ввода

Ericnex · 15.04.2011, 21:30

Цитата:

Сообщение от Mad_Cat

неправильно вы понимаете (
вместо edit1 - пишем ваше поле ввода

А key как переменная ?

Антон Лысенко · 16.04.2011, 02:27

вот процедура что бы пользователь мог ввести только числа.

Код:

 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 Case key of
    '0'..'9','-',#8:;
    '.',',':begin
              key:=DecimalSeparator;
                  if Pos(DecimalSeparator,Edit1.Text)<>0 then
                      key:=#0;
           end
  else
     Key:=0;
end;

думаю я вам хоть чуть-чуть помог)))

Антон Лысенко · 16.04.2011, 02:28

Цитата:

Сообщение от Ericnex

А key как переменная ?

грубо говоря key это нажатие кнопки

(в моём понимании)

Сtrl · 16.04.2011, 07:50

Антон Лысенко, ну зачем все эти самопальные ненадежные решения?.. TMaskEdit с маской для цифр - и все!

15.04.2011, 20:58	#1
Ericnex Форумчанин Регистрация: 07.04.2010 Сообщений: 218	Защита полей Подскажите,как создать защиту от ввода не корректных данных, грубо говоря защиту от дурака. Например поле должно содержать только числа а пользователь вводит символы. Если возможно то приведите по этому примеру фрагмент кода.субд paradox.

15.04.2011, 21:00	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	для полей аналогично "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

16.04.2011, 02:27	#6
Антон Лысенко Форумчанин Регистрация: 15.12.2010 Сообщений: 181	вот процедура что бы пользователь мог ввести только числа. Код: `procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Case key of '0'..'9','-',#8:; '.',',':begin key:=DecimalSeparator; if Pos(DecimalSeparator,Edit1.Text)<>0 then key:=#0; end else Key:=0; end;` думаю я вам хоть чуть-чуть помог)))

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Защита значений текстовых полей от HEX редактора.	Вавел из ГМТУ	Общие вопросы Delphi	7	18.03.2017 10:48
Объединение полей.	Lena220	Microsoft Office Access	3	06.12.2010 21:45
При удалении записей значения полей с type:=Autoincrement (т.е+) в оставшихся полей не изменяются	kenta	БД в Delphi	2	29.10.2009 08:28
Объеденение полей запроса в для отображения нескольких полей в одном списке	mrCreator	Microsoft Office Access	3	08.08.2009 00:53

16.04.2011, 07:50	#8
Сtrl C++ Форумчанин Регистрация: 27.03.2011 Сообщений: 803	Антон Лысенко, ну зачем все эти самопальные ненадежные решения?.. TMaskEdit с маской для цифр - и все! Ищете информацию по C++? cplusplus.com