может как-то так:
procedure TForm1.edSumKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
case KeyChar of
#8, '0'..'9' : ; // цифры и <Back Space>
'.', ',' : // разделитель целой и дробной частей числа
begin
if KeyChar <> FormatSettings.DecimalSeparator then
KeyChar := FormatSettings.DecimalSeparator; // заменим разделитель на допустимый
if Pos(FormatSettings.DecimalSeparator, edDepositing_Sum.Text) <> 0 then
begin
Key := 0; // запрет ввода второго разделителя
KeyChar := Chr(0);
end;
end;
else // остальные символы запрещены
begin
Key := 0;
KeyChar := Chr(0);
end;
end;
end;
Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor)
переименовал методы, в соответствии с используемым API
Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM)
для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
модуль TMapsEngine_Seattle_10.zip
Меня зовут Бровин Ярослав Дмитриевич. Я работаю разработчиком в компании Embarcadero в команде FireMonkey. Поэтому в совершенстве знаю язык Delphi и FireMonkey.
Несколько фактов:
Педагогический опыт: Лауреат конкурса "Сердце отдаю детям" в рамках конкурса "Учитель года". Имею первую категорию по должности педагога дополнительного образования. Стаж работы педагогом 6 лет. Награжден нагрудным знаком правительством Санкт-Петербурга "За гуманизацию школы Санкт-Петербурга"
Образование: Закончил с отличием Ленинградский Электротехнический институт им У. Ленина по специальности Технологии Разработки Программного Обеспечения.
Увлечения помимо работы: В свободное время занимаюсь авиамоделированием, игрой на музыкальном инструменте и созданием и администрированием Web-ресурсов