Я имею данный код на проверку вводимого в 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;