Salut tout le monde
Pour l école je dois faire un convertisseur
Pounds - Euro
j ai tapé tout le code etc, mais ca foire quand je mets une valeur euro et que je la voudrais en pounds ( dans l autre sens ca marche nikel )
voici le code :
Procedure TConvertisseur.PoundsChange(Sender:TObject);
begin
if not (Pounds.Focused)then exit;
if Pounds.text='' then Euros.Text := ''
else begin
Pou:=StrToFloat(Pounds.Text);
Eur:=Pou*PoutoEur;
Euros.Text:=Format('%-.2f',[Eur]);
end; Ca marche ici
end;
Procedure TConvertisseur.EurosChange(Sender:TObject);
begin
if not (Euros.Focused)then exit;
if Euros.text='' then Pounds.Text := ''
else begin
Eur:=StrToFloat(Euros.Text);
Pou:=Pou/EurtoPou;
Pounds.Text:=Format('%-.2f',[Pou]);
end;Ca ne marche pas ici
end;
end.
j ai déclarer mes constantes et mes var :
var
Convertisseur: TConvertisseur;
Eur,Pou:real;
const
PoutoEur=1.45192;
EurtoPou=1/1.45192;
dans le premier cas une valeur correcte s écrit dans la 2ieme case
mais qd j inscris une valeur dans la 2 ieme case pour avoir la réponse dans la premiere ca foire, rien ne s écrit
qq un voit d ou peut venir le probleme ?
merci d avance
Message édité par Houston le 06-03-2005 à 20:06:48