Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Exercices > Addition > Ex3 : Addition 1 - Comment Donner une valeur numérique par défaut (...)
DELPHI
Ex3 : Addition 1 - Comment Donner une valeur numérique par défaut ?
OnCreate
samedi 12 avril 2008, par
Imaginons maintenant que vous cliquiez sur ADDITIONNER alors que vos champs EDIT contiennent autre chose qu’un nombre
Vous obtenez immédiatement ce message fort inhospitalier :
POURQUOI ?
Si Delphi sait convertir la Lettre ’1’ en chiffre 1, il ne sait pas convertir le Mot ’Edit1’
1ere Solution
Nous remplaçons automatiquement le Texte EDIT1 & EDIT2 par un 0
MANIP
Je double clique sur mon formulaire
- Le code de l’évènement OnCreate s’ouvre ...
procedure TForm1.FormCreate(Sender : TObject) ;
begin
end ;
Cette procédure est chargée de construire la fiche à son ouverture, (OnLoad en Basic ou en JavaScript)
Et j’y place ces 2 lignes
procedure TForm1.FormCreate(Sender : TObject) ;
begin
form1.Edit1.Text := ’0’ ;
form1.Edit2.Text := ’0’ ;
end ;
Attention de bien mettre le Zéro entre Quote => ’O’ et non O
Car EDIT n’accepte que les Textes !!!
J’appuie sur F9,
- Ca doit donner ça :