Discussion :

[Beauserge]

Bonsoir

Je tourne en rond sur un code depuis 1 heure et je n'arrive pas à voir le problème. J'ai une erreur virgule flottante alors que ce code fonctionnait auparavant - je l'ai testé 50 fois et c'était ok.
Par la suite j'ai ajouté une procédure FicIni et ce code n'a plus fonctionné depuis (J'ai bien évidemment retiré ma procédure FicIni mais c'est pareil - ça coince)
je ne sais pas ce qui s'est passé !

Votre aide me sera précieuse pour déceler la faille que je n'arrive pas à trouver dans ce code....

Merci d'avance
A vous lire
Beauserge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
// valider un montant et le libellé
procedure TForm1.BtdebitClick(Sender: TObject);
var
DL:string;
DM, TempDR: real;
Sommedebit, sommecredit, solde:real;
begin
if Editdebit.text='' then  // si vide alors rien ne se passe
   begin
    exit
    end
     else       // ou bien on valide
      begin
    DL:= edlibdeBit.text;
    DM:= StrToFloat(editdebit.text);
    TempDr:=StrToFloat(EdTotaldebit.text);
 
Sommedebit:=TempDR+DM;  // on ajoute le dernier montant
EdTotaldebit.text:=FloatToStrF(Sommedebit,ffFixed,4,2); // SOMME DES CREDITS
Listboxdebit.Items.add(DL + '   '+ FloatToStr(DM) + '  ' + 'euros'); // ajout dans listbox débit
 
//calcul pour solde final
Sommecredit:=StrToFloat(EdTotalcredit.text);  // on ajoute le dernier montant
 
TempDr:=StrToFloat(EdTotaldebit.text);
solde:=sommecredit-TempDR;
Edsolde.text:=FloatToStrF(solde,ffFixed,4,2);
end;
end;

[anapurna]

salut

a priori tu as dans tes Tedit un chiffre a virgule qui n'est pas une virgule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
// valider un montant et le libellé
procedure TForm1.BtdebitClick(Sender: TObject);
var
  DL:string;
  DM, TempDR: real;
  Sommedebit, sommecredit, solde:real;
begin
  if Trim( Editdebit.text) <> Then
  begin
    //calcul pour solde final
    DL         := edlibdeBit.text;
    DM         := StrToFloat(editdebit.text);
    TempDr     := StrToFloat(EdTotaldebit.text);
    Sommedebit := TempDr+DM;  // on ajoute le dernier montant
    EdTotaldebit.text  :=FloatToStrF(Sommedebit,ffFixed,4,2); // SOMME DES CREDITS
    Listboxdebit.Items.add(Format('%s %f euros',[DL,DM])); // ajout dans listbox débit
    /////////////////////////////////////////
    // Le credit n'est pas fait normal ?
    /////////////////////////////////////////
    //calcul pour solde final
    Sommecredit      := StrToFloat(EdTotalcredit.text);  // on ajoute le dernier montant
    TempDr           := StrToFloat(EdTotaldebit.text);
    solde        := sommecredit-TempDr;
    Edsolde.text := FloatToStrF(solde,ffFixed,4,2);
  end;
end;

[retwas]

Tu peux tester avec TryStrToFloat, tu verras si tes données sont correctes

[Beauserge]

oui Merci Anapurna, j'ai corrigé au vu de ton code et il n'y a plus d'erreur virgule flottante et cela m'a simplifié le code
Le problème venait des 2 TEdit : EdTotaldebit.text et EdTotaldebit.text

J'ai juste rectifié un détail dans ton code sinon cela ne compilait pas (les '' après le <>)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if Trim (Editdebit.text) <> '' then  // si vide alors rien ne se passe
    begin           
.............

Merci beaucoup pour ton oeil avisé

Cordialement
Beauserge