Problema con excepción

[franroju]

Perdón por la demora. Román, lo que me dijiste vos lo descubrí en uno de los posts que aparecen abajo. Y lo de EConvertError, es verdad, lo tenía así. Pero cuando pasé el código había realizado 2348320974289347239 pruebas con tal de que me funcione, ja.

Eficsa, esa no la sabía, así que es un buen aporte.

nlsgarcia, eso no me sirve ya que quiero evaluar nros decimales, y tu código no me permitiría ingresar comas.

Gracias a todos

[[nlsgarcia]]

franroju,

El código se puede ampliar para aceptar cualquier carácter válido:

Código Delphi [-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin
   If not (Key in ['0'..'9',',']) then Key := Chr(0);
end;

Debes validar que la coma sea colocada en el lugar que requiere tu aplicación.

Espero sea útil

Nelson.

[[nlsgarcia]]

franroju,

Esta es una variante que permite al Control TEdit ingresar números, validar que la coma no sea colocada en la posición 1 o más de una vez y usar la tecla de retroceso (#8):

Código Delphi [-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin

   If (Length(Edit1.Text) = 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   if (Pos(',',Edit1.Text) <> 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   // Solo permite ingresar caracteres númericos, coma y tecla de retroceso.
   If not (Key in ['0'..'9',',',#8]) then Key := Chr(0);

end;

Espero sea útil

Nelson.