¿Cómo puedo aceptar solo números de un control de edición?

Question

Normalmente yo hacer lo siguiente para guardar un valor de cadena en la base de datos

DataModule.tbTableNumber.Value := StrToFloat(edtNumber.text); 

Ahora el problema viene cuando el usuario entra en algo que no se puede convertir en un número. ¿Cómo podría evitar esto? ¿Puede una persona usar una excepción y cómo escribiría esta excepción?

Estoy usando Delphi XE2.

Answer 1

El La mejor solución (en mi humilde opinión) es usar TryStrToFloat:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    myfloat: double; 
begin 
    if TryStrToFloat(Edit1.Text, myfloat) then 
    DataModule.tbTableNumber.Value := myfloat 
    else 
    ShowMessage('Incorrect value.'); 
end; 

No creo que sea particularmente 'limpio' utilizar un try..except cuando el error es tan trivial y, de hecho, como se esperaba, como en este caso.

Answer 2

Puede detectar la excepción con el siguiente

try 
    val := StrToFloat(edtNumber.text); 
    except 
    on E: EConvertError do 
    begin 
     ShowMessage('Entered Data is not a valid Floating Point number'); 
    end; 
    end; 

También puede ser que desee mirar a

StrToFloatDef(edtNumber.text, -1) 

Si sólo tiene que asegurarse de que convertir devuelve un número válido

Answer 3

Hay muchos controles que pueden ser contados solo para aceptar entradas numéricas, y esto tiene algunos beneficios sobre el enfoque que usted aceptó como respuesta.

Por ejemplo, el jedi JVCL library incluye varios controles de entrada numéricos y el VCL básico incluye algunas posibilidades, incluido el control Spin Edit, que es para la entrada de valores enteros.

Answer 4

He encontrado solución en http://www.festra.com/eng/snip05.htm

(código de enlace)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if not (Key in [#8, '0'..'9', '-', DecimalSeparator]) then begin 
    ShowMessage('Invalid key: ' + Key); 
    Key := #0; 
    end 
    else if ((Key = DecimalSeparator) or (Key = '-')) and 
     (Pos(Key, Edit1.Text) > 0) then begin 
    ShowMessage('Invalid Key: twice ' + Key); 
    Key := #0; 
    end 
    else if (Key = '-') and (Edit1.SelStart <> 0) then begin 
    ShowMessage('Only allowed at beginning of number: ' + Key); 
    Key := #0; 
    end; 
end;