Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1566 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Help Delphi - Concertisseur

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Help Delphi - Concertisseur

n°1002769
Houston
Posté le 06-03-2005 à 19:52:31  profilanswer
 

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
mood
Publicité
Posté le 06-03-2005 à 19:52:31  profilanswer
 

n°1003072
antp
Super Administrateur
Champion des excuses bidons
Posté le 06-03-2005 à 22:35:11  profilanswer
 

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)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°1003319
TenjO Teng​E
☆☆
Posté le 07-03-2005 à 10:36:23  profilanswer
 

Houston a écrit :


 
Eur:=StrToFloat(Euros.Text);
Pou:=Pou/EurtoPou;

   


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


Message édité par TenjO TengE le 07-03-2005 à 10:36:53
n°1003373
antp
Super Administrateur
Champion des excuses bidons
Posté le 07-03-2005 à 11:06:28  profilanswer
 

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Help Delphi - Concertisseur

 

Sujets relatifs
HELP - Récupération de données d'une balance par le port série.[VisualC++ 6] Help ! Version Win32 release tombe en erreur
[Delphi 7] demande d'information sur l'objetRequete SQL en ASP -- Help
[TASM] Help NoobHelp add new => update
[HELP] Connexion a une base de donnees access sous VB.NETApres mettre le Delphi 8 patch 2 l'application marche plus
Delphi 7 consol applicationIcone delphi+Ouverrture dossier
Plus de sujets relatifs à : Help Delphi - Concertisseur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR