CONVERTISSEUR ?URO-FRANCS

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, xpman, shellapi, math, Menus, Buttons;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    Fichiers1: TMenuItem;
    Apropos1: TMenuItem;
    Apropos2: TMenuItem;
    N1: TMenuItem;
    Lisezmoi1: TMenuItem;
    Quitter1: TMenuItem;
    Edit2: TEdit;
    Label1: TLabel;
    StatusBar1: TStatusBar;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Quitter2: TMenuItem;
    SpeedButton2: TSpeedButton;
    Label4: TLabel;
    PopupMenu1: TPopupMenu;
    QU1: TMenuItem;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Quitter2Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Lisezmoi1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char); 
    procedure QU1Click(Sender: TObject);
    procedure Apropos2Click(Sender: TObject);
  private

  public
  convstr:string;
  end;
var
Main: TMain;
resultat:string;
{ Variable permettant de connaître l'Edit que l'on modifie}
ChampEditer:Integer;

{ J'ai rajouter une test supplémentaire pour savoir quel Edit on modifie pour
éviter que l'un provoque l'événement OnChange par rapport à l'autre.
}

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TMain.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin  
    If Not(Key in ['0'..'9',#8,',','.']) Then Key := #0;
  { Indique au programme que l'on modifie l'Edit1}
  ChampEditer:=1;
  end;

procedure TMain.Edit2KeyPress(Sender: TObject; var Key: Char);
 begin
     If Not(Key in ['0'..'9',#8,',','.']) Then Key := #0;
  { Indique au programme que l'on modifie l'Edit2}
  ChampEditer:=2;
  end;
procedure TMain.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TMain.Quitter2Click(Sender: TObject);
begin
 close;
end;

procedure TMain.Quitter1Click(Sender: TObject);
begin
  Form2.show;
end;

procedure TMain.Edit1Change(Sender: TObject);
var
ch:char;
x:integer;
begin
{ici convertion du point en virgule}
if edit1.text<>'' then begin
convstr:=edit1.text;
x:=1;
while (convstr[x]<>'')do
begin
if convstr  [x]='.'then
begin
ch:=(',');
convstr[x]:=ch;
end;
x:=x+1
end;
{ On test si on modifie Edit2 car ce qui suit ne doit pas être exécuter du fait
que l'événement OnChange va s'exécuter vers Edit2 car on envoi le résulat vers
Edit2, donc changement de la valeur de Edit2}
if ChampEditer<>2 then
  begin
  { On teste si la longueur est vide pour mettre à zéro la valeur de Edit2.
  Cela est plus propre et évite que le programme conserve la dernière conversion
  effectuée.}
  if length(edit1.Text)=0 then edit2.Text:='';
  if edit1.text<>''then
  begin
    resultat:=floattostr(strtofloat(convstr)*strtofloat( form2.edit1.Text));
    resultat:=floattostr(roundto(strtofloat(resultat),-2));//ROUNDTO CONVERTI LES DEUX CHIFFRES APRES LA VIRGULE(ne pas oublier de mettre math dans uses}
    edit2.Text:=resultat;
  end;
  end;
  end;
  end;
procedure TMain.Edit2Change(Sender: TObject);
var
ch:char;
x:integer;
begin
if edit2.text<>'' then begin
convstr:=edit2.text;
x:=1;
while (convstr[x]<>'')do
begin
if convstr[x]='.'then
begin
ch:=(',');
convstr[x]:=ch;
end;
x:=x+1
end;
{ On test si on modifie Edit1 car ce qui suit ne doit pas être exécuter du fait
que l'événement OnChange va s'exécuter vers Edit1 car on envoi le résulat vers
Edit1, donc changement de la valeur de Edit1}
if ChampEditer<>1 then
  begin
  { On teste si la longueur est vide pour mettre à zéro la valeur de Edit1.
  Cela est plus propre et évite que le programme conserve la dernière conversion
  effectuée.}
  if length(edit2.Text)=0 then edit1.Text:='';
  if edit2.text<>'' then
  begin
    resultat:=floattostr(strtofloat(convstr)/strtofloat( form2.edit1.Text));
    resultat:=floattostr (roundto(strtofloat(resultat),-2));
    edit1.Text:=resultat;

end;
end;
end;
end ;
procedure TMain.SpeedButton2Click(Sender: TObject);
begin
 edit2.TEXT:='';
 Edit1.text:='';
end;
procedure TMain.Lisezmoi1Click(Sender: TObject);
begin
application.ShowMainForm:=false;
aboutbox.show;
end;

procedure TMain.Label4Click(Sender: TObject);
begin
ShellExecute(0,nil,'http://www.delphi.com',nil,nil,sw_maximize);
end;

procedure TMain.QU1Click(Sender: TObject);
begin
Application.helpjump('sommaire');
end;

procedure TMain.Apropos2Click(Sender: TObject);
begin
ShellExecute(Handle,'open','EURO_FRANC.HLP',nil,nil,SW_SHOWDEFAULT );
end;

end.