<div>
sorry, i meant to rephrase it<br />
<br />
if not (Key in [#8, '0'..'9', 'I','V','X','L','C','D','M<wbr />']) then<br />
&nbsp; Key := #0;<br />
<br />
i need to prevent the person from entering a numeric if they are already entering a roman numeral character, and visa versa (if the enter a 'I','V','X','L','C','D','M<wbr />' &nbsp;then they can't enter a 0..9
</div>


sorry, i meant to rephrase it

if not (Key in [#8, '0'..'9', 'I','V','X','L','C','D','M']) then
  Key := #0;

i need to prevent the person from entering a numeric if they are already entering a roman numeral character, and visa versa (if the enter a 'I','V','X','L','C','D','M'  then they can't enter a 0..9

<div>
Great ! <br />
Très bonne idée.
</div>


<div>
<div class="content wysiwyg-content">
I have a function that converts a number to roman and visa versa. (thanks to EE expert).<br />
<br />
I need to prevent users from entering anything other than the following characters<br />
<br />
0..9, or &nbsp;I,V,X,L,C,D,M<br />
<br />
into a TEdit control<br />
<br />
I guess i need to allow a backspace, but nothing else. (example, no spaces, periods, etc. etc)<br />
<br />
thanks<br />

</div>
</div>


I have a function that converts a number to roman and visa versa. (thanks to EE expert).

I need to prevent users from entering anything other than the following characters

0..9, or  I,V,X,L,C,D,M

into a TEdit control

I guess i need to allow a backspace, but nothing else. (example, no spaces, periods, etc. etc)

thanks


TEdit OnKeyPress Event help

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.