Probleme de Calcul 0 + 1000 = 0

**valoji** · 13/12/2006, 14h51

Bonjour,

Voilà mon problème,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var Blres : real;
     Delta : real;
QtiteDepart : real;
NewQtite : real;
begin
...              
     QtiteDepart := StrToFloat(StringGrid_Lil.Cells[33,ligne]);
     NewQtite :=  StrToFloat(StringGrid_Lil.Cells[7,ligne]);
     Delta := QtiteDepart - NewQtite;
     Brlres := ClientDataSet_commun.fieldbyname('brlrel').AsFloat + Delta;
...
end

mon cliendataset a comme valeur : 0 et mon delta: 1000.
Le problème est que brlres me renvoi 0 et non 1000.

Je ne comprends pas car en mode debogage, Evaluer/Modifier :
Je fais : ClientDataSet_commun.fieldbyname('brlrel').AsFloat + Delta, et il me renvoi bien 1000.

Merci de votre aide.
Valoji

**WolffN** · 13/12/2006, 15h26

juste une indication

souvent les formats real,double,single de delphi
et les format double,float,singlet des bases de données sont différents au niveau representation memoire

si tu utilise blres dans la suite pour faire des comparaison il faut faire attention aux arrondis

genre pas 1000 mais plutot 9999.9999999757683478942

**BONNEFOI Patrick** · 13/12/2006, 15h38

Bonjour,

n'aurais-tu pas une valeur Nulle dans ton champ issu de ton clientdataset,

ça expliquerait le pourquoi du comment

A+

**valoji** · 13/12/2006, 15h39

J'ai essayer cela sans avoir passer par ma query :

brlres := 0 + delta (Sachant que delta = 1000);

Brlres me renvoi comme même 0.

Valoji

**LoveBuzz** · 13/12/2006, 16h04

Bonjour,

Cela marche :
brlres := 0 + delta;

on a bien brlres = 1000 quand delta vaut 1000

Es-tu sûr que delta vaut 1000?

A+

**valoji** · 13/12/2006, 16h50

Voila mon code,

J'ai essayer sur un projet vierge il me renvoie bien 1000, et oui je suis sur que delta = 1000

voici mon code complet

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
var
  Brlres : Real;
  QtiteDepart : Real;
  NewQtite : Real;
  Brleta : String;
  Reliqua : Boolean; // Si la quantité est supérieure au restant à liquider de la reception, on ajoute le delta dans fcprd
  Delta  : Real;
begin
    If (FlagEtatFonc = Modification) then
    begin
      With query_commun do
      begin
          Try
            if (brlnumser <> '') then
            begin
              close;
              ClientDataSet_commun.Close;
              SQL.Clear;
              SQL.Add('SELECT brlrel, brlliv');
              SQL.Add('FROM dpbrl');
              SQL.Add('WHERE brlnumser = '+ Brlnumser );
              open;
              ClientDataSet_commun.Open;
              {On recupere la quantité initiale qui a été saisi}
              QtiteDepart := StrToFloat(StringGrid_Lil.Cells[33,ligne]);
              NewQtite :=  StrToFloat(StringGrid_Lil.Cells[7,ligne]);
              Delta := QtiteDepart - NewQtite;
              Brlres := FieldByName('brlrel').AsFloat + Delta;
              if (fieldbyname('brlrel').AsInteger <= 0) or (fieldbyname('brlrel').AsFloat < StrToFloat(StringGrid_Lil.Cells[7,ligne]))  then
              begin
                Reliqua := True;
                Brlres := 0;
                Brleta := 'L';
              end
              else
              begin
                BrlRes := fieldbyname('brlrel').AsFloat - StrToFloat(StringGrid_Lil.Cells[7,ligne]);
                Brleta := 'P';
              end;
              if fieldbyname('brlliv').AsFloat < BrlRes then
              begin
                Brleta := 'U';
                Brlres := fieldbyname('brlliv').AsFloat;
              end;
              SQL.Clear;
              SQL.Add('UPDATE dpbrl');
              SQL.Add('SET Brleta = "' + BrlEta +'", ');
              SQL.Add('    BrlRel = "'+ FloatToStr(Brlres) + '"');
              SQL.Add('WHERE brlnumser = '+ Brlnumser );
              ExecSQL;
            end;

Merci pour votre aide
Valoji

**valoji** · 13/12/2006, 17h23

Au niveau de mon debogage lorsque je fais teste la valeur de cette somme :

FieldByName('brlrel').AsFloat + Delta; il me renvoi bien 1000.

Mais il ne veut pas me l'affecter à mon brlres

Valoji

**Rayek** · 14/12/2006, 08h47

En débgage, il faut que le curseur soit un cran en dessous si tu veux voir la valeur de Brlres.

Sinon après ton code passe où dans le if ?
Dans la première partie ou dans le else ?

Code :

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

1
2
3
4
5
6
7
 if (fieldbyname('brlrel').AsInteger <= 0) or (fieldbyname('brlrel').AsFloat < StrToFloat(StringGrid_Lil.Cells[7,ligne]))  then
              begin
                Reliqua := True;
                Brlres := 0;
                Brleta := 'L';
              end

**valoji** · 14/12/2006, 09h05

Bonjour,
Mon curseur est bien un cran en dessous,

je vous remet mon code sans le reste :

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
    If (FlagEtatFonc = Modification) then
    begin
      With query_commun do
      begin
          Try
            if (brlnumser <> '') then
            begin
              ClientDataSet_commun.Close;
              close;

              SQL.Clear;
              SQL.Add('SELECT brlrel, brlliv');
              SQL.Add('FROM dpbrl');
              SQL.Add('WHERE brlnumser = '+ Brlnumser );
              ClientDataSet_commun.Open;
              open;

              {On recupere la quantité initiale qui a été saisi}
              QtiteDepart := StrToFloat(StringGrid_Lil.Cells[33,ligne]);
              NewQtite :=  StrToFloat(StringGrid_Lil.Cells[7,ligne]);
              Delta := QtiteDepart - NewQtite;
              Brlres := ClientDataSet_commun.FieldByName('brlrel').AsFloat + Delta);

;

Mon clientdataset est bien égal à 0, mon delta est bien egal à 1000.

En mode débogage (un cran en dessous), quand je teste ClientDataSet_commun.FieldByName('brlrel').AsFloat + Delta, il me renvoi bien 1000, le problème c'est qui veut pas me l'affecter à mon brlres.

Au debut je pensais que ca venait de mon clientdataset que j'ai remplacer par 0 + delta, meme probleme.

Par contre si, avec le module Evaluer / Modifier, je lui repasse

Brlres := (ClientDataSet_commun.FieldByName('brlrel').AsFloat + Delta

, brlres prend bien la valeur 1000.

Pour mon problème je pense plutôt à un problème de déclaration de variable (Real), mais je pense que tout est declarer correctement.

J'ai tester sur un projet propre, cela fonctionne à merveille avec une valeur à 0 et une 1000 ma variable recupere bien 1000, donc là je suis vraiment en panne séche.

Valoji,

**valoji** · 14/12/2006, 09h18

Petite info dans mes tests :

voilà ce que j'ai essayer ce matin :

MessageDlg(FloatToStr(ClientDataSet_commun.FieldByName('brlrel').AsFloat + Delta), mtWarning, [mbOK], 0);
Brlres := 1000;

Resultat :
mon message dialogue me renvoi bien 1000;
Brlres me renvoi toujours 0, meme si je lui affecte 1000 directement, bon courage pour ce qui aime bien ce prendre la tête

Pour rappel voilà comment j'ai declarere mon brlres :

Code :

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

1
2
3
4
5
6
7
 
Procedure Tform_gesliq.MajStock(Ligne : Integer; prdnumser, brlnumser : String);
var
  Brlres : Real;
  ....
begin
...

Valoji

**rsc** · 14/12/2006, 09h29

Je me trompe peut-être, mais...
Juste après avoir affecté la valeur à ton Brles, tu as une If.. Then.. Else.., ou, dans les deux cas, tu lui affectes une nouvelle valeur.
Résultat des courses, la première affectation ne sert à rien, et le compilateur la squeeze.

**valoji** · 14/12/2006, 10h48

C bon c resolu merci à vous tous est particulierement RSC :

Je me trompe peut-être, mais...
Juste après avoir affecté la valeur à ton Brles, tu as une If.. Then.. Else.., ou, dans les deux cas, tu lui affectes une nouvelle valeur.
Résultat des courses, la première affectation ne sert à rien, et le compilateur la squeeze.
__________________
Roland

J'ai donc eclate cette procedure en trois procedure (Creation, modification, suppression).

Donc j'avais tellement de If que mon compilateur squeezer ma variable, et donc pour lui, elle ne servait donc à rien car il considérait que l'on ne pouvait pas rentrer dans les if

Donc en eclatant ma procedure en 3, (Ce qui est plus lisible) ce la fonctione car moins de If,

Donc encore merci à tous pour votre aide.

Valoji,

PS : Bonne prog

Probleme de Calcul 0 + 1000 = 0

Bases de données Delphi

Discussions similaires

Partager

Partager