Discussion :

[elecpic]

Bonsoir à tous,

Voila mon probleme : j'ai un TEdit(nommé date1) sur ma fiche et je veut convertir ce qui est tapé en integer (il s'agit d'une année). mon morceau de code vaut mieux qu'un grand discourt :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.date1Change(Sender: TObject);
var
a ,i: integer;
begin
 
try
  i := StrToInt(date1.text);
  except
    on E: EConvertError do begin
      i := 0;
      date1.text := '0000';
     end;
  end;
end;

Quand je lance l'apli, je plante si je rentre un alphanumerique !
Pourtant, d'aprés mes recherches, ça ne devrait pas.

Merci de me mener sur le chemin de la solution

cordialement,

elecpic

[Jipété]

Salut,

Quand je lance l'apli, je plante si je rentre un alphanumerique !

Ça plante quand tu lances l'appli DANS l'interface de l'IDE (c'est un grand classique)...
Lance l'exe tout seul, et tu verras que ça roule (testé à l'instant) !

EDIT : et tiens, tant qu'on y est, tu peux tester ça, aussi :

Code :

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

  if not TryStrToInt(date1.text, i) then date1.text := '0000';

[elecpic]

Un grand merci Jipété,

Mon code etait bon alors...

Je viens d'apprendre la prudence et les limite de l'api

Cordialement,

elecpic

[philnext]

le plus simple serait :

Code :

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

1
2
 
   i := StrToIntDef(date1.text,'0000');

[mick605]

Si ton TEdit est destiné à recevoir seulement des chiffres, utilises plutot le composant TSpinEdit, et tu peux directement recuperer la valeur avec

Code :

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

SpinEdit1.Value

le plus simple serait :

Code :

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

1
2
 
   i := StrToIntDef(date1.text,'0000');

Plus exactement

Code :

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

i:= StrToIntDef(Date1.Text, 0);  //le deuxieme parametre est un entier