[DELPHI] Separatore decimale

[carmelo81]

salve a tutti...
cm posso evitare di far comparire la scritta di errore:

" is not a valid floating point value
oppure
"1. is not a valid floating point value

ogni volta che nell'edit si mette il punto anzichè la virgola, oppure cancello tutto il suo contenuto e rimane vuoto l'edit?
Nell'attesa di una risposta credo positiva, vi mando i miei più sentiti saluti

[alka]

Ti basterebbe intercettare il carattere punto (.) e la virgola (,) sostituendoli con il separatore decimale impostato a livello di sistema.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['.', ','] then
    Key := DecimalSeparator;
end;

Ciao!

[carmelo81]

questo nel caso mettessi il punto anzichè la virgola, e ti ringrazio.
Ma:
1) nel caso lasciassi vuoto l'Edit? mi spunta il mess di errore
(" is not a valid floating point value).
si puo ovviare a questo problema?
2)la procedura che mi hai detto nel caso dell'Edit rigurda un solo Edit, ma poichè io ho molti Edit nella Form1, si puo scirvere una procedura generica per tutti gli Edit presenti?

grazie mille per la risposta

[alka]

Per ovviare al problema, devi semplicemente verificare la validità del campo (ad esempio, che non sia vuoto) ispezionando la proprietà Text del controllo Edit, oppure intercettare l'errore con il costrutto try...except nel tentativo di convertire il valore attraverso StrToFloat.

Ciao!