Discussion :

[softstar]

bonsoir a tous , excusez moi du derangement mais j ai un petit probleme

avec un listview (toujours pour mon travail de fin d'étude sur la gestion

complete d'un café)


je m'explique : dans un listview(qui symbolise mon ticket de caisse a l'écran)

j ai 2 colonnes :

1ere colonne= articles : qui contient les articles choisis par le serveur

2eme colonne= les prix : en euros

quand je calcule mon total,pas de problemes,ca fonctionne bien

par contre,j'ai prévu un bouton annuligne , pour que le serveur

puisse retirer des elements avant de valider le ticket

en voici le code :

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
procedure TForm_Caisse.RbButton_Annulligne_TicketClick(Sender: TObject);
var i:integer;
phrase:array of string;
temp:array of real;
begin
setlength(phrase,ListView_Ticket.Items.Count);
setlength(temp,ListView_Ticket.Items.Count);
for i:= 0 to (ListView_Ticket.Items.Count -1) do
begin
      if (ListView_Ticket.Items.Item[i].selected=true)
      then
      begin
      phrase[i]:=ListView_Ticket.Items.Item[i].SubItems[0];
      temp[i]:=strtofloat(phrase[i]);
      total:=total-temp[i];
 
      end;
end;
 
ListView_Ticket.DeleteSelected;
Edit_Total.Text:=floattostr(total)+' '+'€';
 
end;

alors mon probleme : parfois ca fonctionne bien , si par exemple je supprime

tout les elements du listview , mon edit_total affiche bien : 0 €

mais parfois cela m affiche une valeur folle

genre : 3,27418092638254E-15 €

comment cela se peut il ?

est ce un bug ? y a t il moyen de le résoudre ?

PS : je précise que j utilise borland delphi 2005 developper edition

ainsi que microsoft access 2003

je vous remercie d avance pour votre aide car je dois presenter mon

travail ce samedi 16 septembre a 11h15 du matin

[Pedro]

Salut
Je pense qu'il faudrait mieux utiliser des réels à virgule fixe qui évite justement ce genre d'erreur...
Ou alors, pour tester si la valeur est à 0, utilise la fonction IsZero qui, je pense, pour 3,27418092638254E-15 renverra True

Et puis dans ton code, ce serait quand même bien plus simple de claculer le total une fois les éléments supprimés pas avant

[softstar]

merci pedro , je vais essayer ca alors

mais qu appelles tu reels a virgules fixes ?

[mayloshi]

merci pedro , je vais essayer ca alors

mais qu appelles tu reels a virgules fixes ?

Il te parle d'un truc genre simpleRountTo (n'oublie pas d'ajouter MATHS dans la clause USE).

function simpleroundTo (variable : DOUBLE, position : INTEGER)

un exemple:

x:REAL;

x:=SimpleRoundTo(12345.456,0) te donne x=12345
x:=SimpleRoundTo(12345.456,-1) te donne x=12345.5
x:=SimpleRoundTo(12345.456,-2) te donne x=12345.46

par contre

x:=SimpleRoundTo(12345.456,1) te donne x=12350 (arrondi avant la virgule)
x:=SimpleRoundTo(12345.456,2) te donne x=12300 (idem)

[kanzarih]

salut

mois avotre place j'utilise une fonction pour l'annulation de la commande
dans la quelle je donne directement la valeur 0 au total !