SpinEdit OnChange qui pose probleme.

Je m'explique, mon programme contient plusieurs SpinEdit mais je dois faire face un petit probleme:
J'ai cree sur l'evement spinedit_Change des procedures qui modifie une valeur en la rendant egale a la valeur du spinedit

exemple:

Code:

---

1 2 3 4 5

procedure TForm_main.SpinEdit_temperatureChange(Sender: TObject); begin la_situation.la_meteo.temperature := SpinEdit_temperature.Value; end;

---

Le probleme est que si l'utilisateur veut rentrer "directement" un chiffre (sans utilisé les fleches) ça lance directement le spinedit, et etant donné que la valeur est "nulle" ça plante.
En C/C++ j'aurais utilisé qq chose du genre "isalnum" mais en delphi je ne connais pas l'equivalent.

:? :traine: :mur:

2solution :

Code:

---

1 2 3 4 5

procedur TForm_main.SpinEdit_temperatureChange(Sender: TObject); begin if SpinEdit_temperature.Value> then la_situation.la_meteo.temperature := SpinEdit_temperature.Value; end;

---

ou agit directement sur min et max de spin edit

Je propose cela :

Code:

---

1 2 3 4 5 6 7

procedure TForm_main.SpinEdit_temperatureChange(Sender: TObject); begin try la_situation.la_meteo.temperature := SpinEdit_temperature.Value; except end; end;

---

Sinon :

Code:

---

1 2 3 4 5

procedur TForm_main.SpinEdit_temperatureChange(Sender: TObject); begin if SpinEdit_temperature.Text <> '' then la_situation.la_meteo.temperature := SpinEdit_temperature.Value; end;

---