Delphi Probleme

 (CD-ROMDelphi.Exceptions)

Objectif : Construire une interface effectuant des calculs sur les smallint (entiers 16 bits signés), avec un choix de 6 opérateurs.

La fiche principale, le code associé dans la unit
 

Exécuter le programme
 

La fiche principale du  projet :

                                                                                                Remonter 

Le code de la Unit fiche principale :

unit Uexcept;

 interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

 type
  TForm1 = class(TForm)
    Editnbr1: TEdit;
    Editnbr2: TEdit;
    Labelnbr1: TLabel;
    ListBoxOperation: TListBox;
    Editmessage: TEdit;
    LabelResultat: TLabel;
    Labelnbr2: TLabel;
    Label1: TLabel;
    ButtonCalcul: TBitBtn;
    Labeltypoperat: TLabel;
    Panel1: TPanel;
    Editresult: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure ListBoxOperationClick(Sender: TObject);
    procedure ButtonCalculClick(Sender: TObject);
    procedure Editnbr1Change(Sender: TObject);
    procedure Editnbr2Change(Sender: TObject);
  private
    { Déclarations private }
  public
    { Déclarations public }
  end;

 var
  Form1: TForm1;
  App_Path:string;
  Toper:array[0..5]of string;

 implementation

{$R *.DFM}

 procedure TForm1.FormActivate(Sender: TObject);
begin
  Toper[0]:='*';      Toper[1]:='/';
  Toper[2]:='+';      Toper[3]:='-';
  Toper[4]:=' div ';  Toper[5]:=' mod ';
end;

 procedure TForm1.ListBoxOperationClick(Sender: TObject);
begin
 Labeltypoperat.caption:=Toper[ListBoxOperation.ItemIndex];
end;

 procedure TForm1.ButtonCalculClick(Sender: TObject);
var op1,op2,result:smallint;

 begin
  ButtonCalcul.enabled:=false;
  op1:=strtoint(Editnbr1.text);
  op2:=strtoint(Editnbr2.text);
  case ListBoxOperation.ItemIndex of
   0: result:=op1 * op2;
   1: result:=trunc(op1 / op2);
   2: result:=op1 + op2;
   3: result:=op1 - op2;
   4: result:=op1 div op2;
   5: result:=op1 mod op2;
  end;
  Editresult.text:=inttostr(result);
  Editmessage.text:=inttostr(op1)+Toper[ListBoxOperation.ItemIndex]+' '+inttostr(op2)+
                        '= '+Editresult.text;
end;

 procedure TForm1.Editnbr1Change(Sender: TObject);
begin
 ButtonCalcul.enabled:=true;
end;

 procedure TForm1.Editnbr2Change(Sender: TObject);
begin
 ButtonCalcul.enabled:=true;
end;
end.                                                                        Remonter