Error en cuadros de textos con entrada de números

Fecha de publicación: Aug 12, 2021 1:35:47 AM

Para solucionar los errores en los cuadros de texto y que solo permita números una de las opciones son las siguientes:

Usar una función que ya maneja el error sin generar una excepción, esta función intenta convertir el texto a entero, si hay algún error, devuelve el valor predeterminado pasado justo después, en este caso devuelve 0 si hay algún error.

StrToIntDef(Edit1.Text, 0);

por otra parte podemos usar un Try

Otra opción es colocar en el evento ONKEYPRESS del cuadro de texto el siguiente código que únicamente permite números.

If not(Key in ['0'..'9','.',#8]) then begin Key:=#0; end;