Come posso accettare solo numeri da un controllo di modifica?

Question

Normalmente avrei effettuare le seguenti operazioni per salvare un valore stringa nel database

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

Ora il problema nasce quando l'utente immette qualcosa che non può convertire in un numero. Come potrei essere in grado di impedirlo? Una persona può usare un'eccezione e come scriverò questa eccezione?

Sto usando Delphi XE2.

Answer 1

Il la migliore soluzione (IMHO) è quella di utilizzare 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; 

Non penso che sia particolarmente 'pulito' utilizzare try..except quando l'errore è banale e, infatti, come previsto, come in questo caso.

Answer 2

È possibile intercettare l'eccezione con il seguente

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

Si potrebbe anche voler guardare

StrToFloatDef(edtNumber.text, -1) 

Se avete solo bisogno per essere sicuri di convertire restituisce un numero valido

Answer 3

Ci sono molti controlli che possono essere detti solo per accettare input numerici, e questo ha alcuni vantaggi rispetto all'approccio accettato come risposta.

Il jedi JVCL library ad esempio include diversi controlli numerici di input e il VCL di base include alcune possibilità, incluso il controllo Spin Edit che è per l'immissione di valori interi.

Answer 4

ho trovato la soluzione su http://www.festra.com/eng/snip05.htm

(codice dal collegamento)

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;