Delphi BX Bedienungsanleitung PDF herunterladen (Seite 8)

page 55 de 93

7.5.2 Code

Une fois ce formulaire établi, nous pouvons écrire le code nécessaire pour calculer la factorielle.

Rappelons que nous y utiliserons le code Pascal établi en 2

(voir également les « Algorithmes

obligatoires »).

Delphi s’occupera de la déclaration du formulaire et de ses propriétés.

La seule partie du code que nous devons écrire est celle de la procédure btnOkClick qui va être

exécutée, comme son nom le dit, après que l’utilisateur ait poussé sur le bouton Ok. Nous dirons

que la procédure s’exécute après l’événement onClick appliqué à la propriété btnOk.

Le tout se trouvera dans l’unité Unit1.

Voici une possibilité de code pour la procédure en question.

procedure Tformulaire.btnOkClick(Sender: TObject);

var n,fact:integer;

begin

n:=StrToInt(edtnum.Text);

fact:=factorielle(n);

lblresult.Caption:=IntToStr(fact)

end;

Bien entendu, cette procédure suppose que la fonction factorielle(n:integer):integer est définie.

7.5.3 Explication du programme.

En regardant de près ce code quelques remarques s’imposent :

− Comme la procédure s’emploie dans le formulaire Tformulaire, elle s’appellera sous

son nom complet : Tformulaire.btnOkClick.

− La valeur saisie du nombre est la valeur de la propriété Text du champ edtNombre. Nous

notons donc cette valeur par edtNombre.Text. De plus, comme il s’agit d’une chaîne de

caractères, nous devons encore transformer cette chaîne en une valeur numérique par la

fonction StrToInt, fonction prédéfinie dans Delphi.

− La valeur de la factorielle calculée sera affectée à la propriété Caption du champ

lblResultat que nous noterons par lblResultat.Caption. Comme de plus cette

valeur doit être du type chaîne de caractères, nous devons transformer fact par la fonction

IntToStr, autre fonction prédéfinie dans Delphi.

L’unité Unit1 se présentera finalement ainsi :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

type

Tformulaire = class(TForm)

lblTitre: TLabel;

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

Keine Kommentare

Delphi BX Bedienungsanleitung Seite 8