Help!) Проверка на синтаксис вводимого в Edit

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Help!) Проверка на синтаксис вводимого в Edit

Сообщение Denisska008 » 28.07.2020 18:46:39

Доброго времени суток
Я имею данный код на проверку вводимого в Edit, но есть одна проблема: не возможно стереть символ если передумал его вводить, в попытке стереть его вылетает msg как при не правильном символе. Как можно это устранить и сделать возможность стирать символы?
Код: Выделить всё
procedure TForm5.Edit1OnKeyPress(Sender: TObject; var Key: char);
begin
if (Key in ['A'..'Z','a'..'z','0'..'9','.','-']) = False then
    begin
     ShowMessage('Индентификатор не может содержать данный символ');
     Key:=Chr(0);
    end;
end;                 
Denisska008
незнакомец
 
Сообщения: 1
Зарегистрирован: 28.07.2020 18:35:41

Re: Help!) Проверка на синтаксис вводимого в Edit

Сообщение Vlad04 » 03.08.2020 08:25:38

Добавьте во множество символ "BackSpace" chr(8)
Код: Выделить всё
if not (Key in [chr(8), 'A'..'Z','a'..'z','0'..'9','.','-']) then
Аватара пользователя
Vlad04
новенький
 
Сообщения: 62
Зарегистрирован: 11.12.2007 21:11:19
Откуда: Караганда. Казахстан


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: FairyFenix, Yandex [Bot] и гости: 14

Рейтинг@Mail.ru