Código Delphi [-] function ValidaCharNum(Var Key:Char):Char; var i:integer; begin i:=Ord(Key); if (i in[58..241]) or (i in[10..47]) then result:=#0 else result:=key; end; //La llamas de la siguiente forma en el evento OnKeyPress. key:=ValidaCharNum(key);
function ValidaCharNum(Var Key:Char):Char; var i:integer; begin i:=Ord(Key); if (i in[58..241]) or (i in[10..47]) then result:=#0 else result:=key; end; //La llamas de la siguiente forma en el evento OnKeyPress. key:=ValidaCharNum(key);