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

Essaie d'exécuter le code pas à pas pour voir ce qu'il fait.
Place-toi sur la ligne du "if not...", fais F5, il insèrera un breakpoint (la ligne sera surlignée en rouge), ensuite lors de l'exécution il s'arrêtera sur cette ligne.
Là tu pourras avancer ligne par ligne avec F8, et voir la valeur de chaque variable en passant dessus avec la souris.
(F9 pour reprendre l'exécution normale)

 

 
ce serait pas mieux comme ca
 
Eur:=StrToFloat(Euros.Text);
Pou:=Eur/EurtoPou;

En effet