dernière mise à jour le : dimanche 14 juin 1998
Ouvrez Delphi. Si votre précédent programme s'est chargé, dans le menu de Delphi, faire Fichier / Nouvelle application.
Nous allons faire une application capable de faire une addition !
COMPOSITION DE LA FICHE:
Notre application comprend un bouton. Placez un bouton sur la fiche (si vous ne savez pas comment faire : voir la leçon 1)
Modifier sa propriété caption en remplaçant "Button1" par "=". (voir la leçon 1)
Modifier la taille de la police de
caractère du "=" en modifiant la propriété
Font de notre bouton (cliquez sur le bouton pour être
sur que l'inspecteur d'objets se rapporte à notre bouton
puis cliquez sur les ... du bouton situé à droite de la
propriété Font. 
modifiez la
taille (par exemple 18) et mettez le en gras.
Nous allons placer sur notre fiche les
deux Edits 
qui nous serviront à rentrer
les nombres ainsi que l'Edit qui servira à obtenir le
résultat. Pour cela, de la même façon que vous avez
placé le bouton sur la fiche, vous allez cliquer dans la
barre des boutons sur le bouton qui correspond au TEdit
(celui qui est placé juste à droite du A
dans ce morceau de capture écran : 
. Puis cliquez sur la fiche pour le
positionner. Vous pouvez le déplacer à l'aide de la
souris. Refaire de même pour les deux autres Edits.
Nous allons maintenant placer le signe +
entre les deux premiers Edits que nous avons placés.
Pour cela, nous allons utiliser un composant Label 
. Le composant label est le A de ce morceau de capture écran : . Opérez de la même façon que pour les
Edits pour placer un label sur votre fiche.
Modifiez sa propriété Caption pour remplacer "Label1" par +
Modifiez sa propriété Font : Modifiez la taille (par exemple 18) et
mettez le en gras.
Enfin, dans notre exemple on va placer un titre : "L'addition". Pour cela, placez un autre Label et modifier ses propriétés Caption et Font.
Votre fiche doit ressembler à (à la
différence près qu'au lieu d'avoir 2 2 et 4 vous devez
avoir respectivement Edit1, Edit2 et Edit3).
AFFECTATION DU CODE A L'EVENEMENT OnClick DE NOTRE BOUTON:
L'événement OnClick étant l'événement par défaut des TButton, au lieu d'opérer comme dans la leçon 1, double cliquez sur le bouton pour
faire ouvrir votre fenêtre de code et faire écrire par Delphi :
procedure TForm1.Button1Click(Sender: TObject); begin end;
Vous allez placer entre le begin et le end les actions que vous souhaitez voir effectuer lorsque l'événement OnClick de votre bouton Button1 sera déclenché (lorsque l'on cliquera sur le bouton).
Ce qui apparaît dans les Edits
(par défaut Edit suivi d'un numéro) est la valeur de leur
propriété Text. Essayez grâce à l'inspecteur d'objet de
modifier leurs valeurs et vous verrez immédiatement le résultat
sur l'Edit de votre fiche (procédez de la même façon que celle
utilisée pour modifier la propriété caption de votre label
). Par contre, cette valeur est un texte (string) qu'il va
falloir transformer en nombre pour pouvoir opérer une addition
sur cette valeur.
Pour transformer un texte (string) en nombre entier (integer), nous allons utiliser la fonction StrToInt (pour String To Integer). Si MonText est un texte de type string et N un nombre entier (integer) nous avons le droit d'écrire :
N:=StrToInt(MonText); // N contiendra alors la valeur de MonText mais transformer en integer.
(notez l'utilisation de := et non = tout court).
Il existe la fonction inverse qui transforme un entier (integer) en un texte (string) :
MonText:=IntToStr(N);
Complétez votre procédure TForm1.Button1Click de la façon suivante:
procedure TForm1.Button1Click(Sender: TObject);
Var
N1:integer; // On déclare ici que N1 et N2 sont des variables de type integer (entier)
N2:integer; // C'est à dire que N1 et N2 contiendront des données de type integer (entier)
Resultat:integer; // même remarque que pour N1 et N2
begin
N1:=StrToInt(Edit1.Text);// on stocke dans N1 la valeur contenu dans la propriété Text de Label1
// après l'avoir transformer en integer
N2:=StrToInt(Edit2.Text);
Resultat:=N1+N2; // calcul du résultat
Edit3.Text:=IntToStr(Resultat);//On stocke la valeur du résultat dans la propriété Text de l'Edit3
// après l'avoir transformée en chaîne de caractères (string)
end;
Voilà : lancez votre programme par F9 et testez : normalement 2+2=4 !