Discussion :

[starkson]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[edam]

2solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bejaia-In]

Je propose cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Pedro]

Sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;