SpinEdit Exception EconvertError

Bonjour

Si, au lieu d'utiliser les flêches, on double clique sur un SpinEdit pour pouvoir entre une valeur manuellement, le composant se retrouve un instant sans valeur et une erreur est déclenchée avec le message : '' n'est pas une valeur entière correcte.

Une idée pour pallier cet inconvénient ??


Merci d'avance

Initialise à Zéro ton SpinEdit ... voir si en jouant avec le OnChange tu ne puissent pas corriger le text ...

Il est initialisé à 0.
L'erreur se produit avnt l'événement OnChange.

Salut,

C'est un des problèmes du SpinEdit. A chaque OnChange, tu appelle automatiquement la conversion texte -> entier. Si la chaine ne représente pas une valeur entière valide, il y plantage. A gérer par exception je pense à un truc du genre:

Code:

---

1 2 3 4

try SpinEdit1.Value //utilisation de ta valeur except End;

---

Personnellement, je préfère utiliser un simple TEdit (bien plus souple) associé à un TSpinButton: 2 lignes de codes et tu gèrent toi même tes sécurités, tu peut associer des float...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TFiche1.SpinButton1UpClick(Sender: TObject); Var ATemps:Double; Begin If TryStrToFloat(TimeEdit.Text,ATemps) = true then Begin ATemps := ATemps + PasDeTemps; If (ATemps > 5000) then ATemps:=5000; //limitation max si nécéssaire TimeEdit.Text := FloatToStr(ATemps); End; End; {{------------------------------------------------------------- --------------------------------------------------------------} procedure TFiche1.SpinButton1DownClick(Sender: TObject); Begin If TryStrToFloat(TimeEdit.Text,ATemps) = true then Begin ATemps := ATemps - PasDeTemps; If (ATemps < 0.0) then ATemps:=0; //limitation min si nécéssaire TimeEdit.Text := FloatToStr(ATemps); End; End;

---

Il faut bien sur initialiser pasdetemps a la valeur de ton choix (= step de ton spinEdit)...

A+.

Initialise ton SpinEdit.min:=0;

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.SpinEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if spinedit1.Text='' then spinedit1.Value:=0; end;   end.

---

Merci à tous deux, je suis satisfait.

J'ai découvert la propriété Text du composant SpinEdit qui n'apparait pas dans l'inspecteur d'objets mais qui fonctionne bel et bien.

Bonjour

je déterre ce fil :mrgreen:
il y a encore plus simple, il ne faut pas utiliser SpinEdit.Value qui pose problème dans les conditions qui ont été dites plus haut.

Perso je fais ceci dans l'évènement OnChange:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TFormModifAction.SpinEdit1Change(Sender: TObject); var i,erreur : integer; begin val(SpinEdit1.text,i,erreur); if erreur<>0 then begin SpinEdit1.Value:=0; exit; // si erreur quelconque dans le champ texte qui n'est pas convertible, on sort! end; SpinEdit1.Value:=i; // sinon on utilise la valeur entière qui est dans i (...) end;

---

Voila
au revoir