Стр. 102 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
102
Рис. 6.8
//получение ссылки на объект Edit,
//в котором произошло нажатие клавиши
Edit:=Sender as TEdit;
case key of
//разрешен цифровые клавиши и забой BackSpace
'0'..'9',#8:;
//нажаты запятая или точка
',','.':
if Edit.Tag=0 then
//в поле Количество (Tag=0) точка и запятая игнорируются
key:=#0
else
begin
// в поле Цена (Tag=1) точка и запятая заменяются
//десятичным разделителем
key:=DecimalSeparator;
//не позволяет вводить десятичный разделитель
//повторно в одну строку
if pos(key,Edit.Text)<>0 then
key:=#0;
end;
//остальные символы игнорируются
else
key:=#0;
end;
end;
Для всех полей Цена в инспекторе объектов изменим свойство Tag с нуля
на единицу. У полей Количество свойство Tag оставим равным 0. Свойство
Tag необходимо для распознавания типа поля (Количество или Цена).
10. Теперь в инспекторе объектов выберем компонент Edit2 и найдем со-