C'est ma 2nd source qui sers à convertir une somme en francs -> Euros ou Euros -> Francs
Je vais essayer de l'améliorer en metant aussi une convertion en $ avec une possibilité que l'utilisateur puisse paramétrer le taux de cette monaie.
J'ai aussi remplacé le composant XpMan par {$R WindowsXp.res}.
Source / Exemple :
var
Form1: TForm1;
implementation
{$R *.dfm} {$R WindowsXp.res}
procedure TForm1.Button1Click(Sender: TObject);
Var FN1, FResultat : Real;
begin
FN1 := StrToFloat(Edit1.Text);
FResultat := FN1 * 6.55957; //?uros -> Francs
Edit1.Text := FloatToStr(FResultat);
end;
procedure TForm1.Button2Click(Sender: TObject);
Var EN1, EResultat : Real;
begin
EN1 := StrToFloat(Edit1.Text);
EResultat := EN1 / 6.55957; //Francs -> Euros
Edit1.Text := FloatToStr(EResultat);
end;
procedure TForm1.Quitter1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.APropos1Click(Sender: TObject);
begin
ShowMessage('Si le code source vous interesse contactez moi à juliendu06@hotmail.com');
end;
procedure TForm1.Alire1Click(Sender: TObject);
begin
ShowMessage('Pour les nombres décimals utilisez la , et non le .');
end;
end.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.