Discussion :

[djazialger]

bonjour !!
c'est pour faire une facture, je dois calculer la somme des enregistrements du champs "prix" pour avoir le total à la fin et l'écrire dans un Tedit :
j'ai pensé à faire un compteur qui calcule le nombre d'enregistrements puis calcule la somme, mais j'ai pas trouvé la synthaxe, j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
v: integer;//c'est le compteur 
total: integer;//c'est le total ou la somme des prix
procedure TForm10.Button1Click(Sender: TObject);
begin
  for v:=0 to (table2.recordcount) do
  begin
    total:=total+['table1.prix_unitaire'];
    edit11.text:=inttostr(total);
  end;
end;

mais à la compilation j'ai eu le msg suivant :
1- [Avertissement] Unit10.pas(111): La variable de contrôle de boucle FOR doit être une variable locale simple
2- [Erreur] Unit10.pas(113): Type ordinal requis
merci d'avance

[Nono40]

Le première erreur signifie que la variable doit etre locale à la procédure et non pas globale.

La deuxième c'est que ton +['table1.prix_unitaire']; ne corresponad à rien en Delphi

Pour quoi tu fais la somme d'un champ de Table2 alors que tu parcours Table 2 ?

Sinon :
- Tu Oublies de mettre Total à zéro en début de procédure
- Met le total dans un type Réel, car tes prix ont certainement des décimales
- ce n'est pas une boucle For mais une boucle While qu'il faut utiliser
- Evite d'utiliser RecordCount, Je suppose que tu es en Paradox et que ça fonctionne mais dans tous les autres cas RecordCount ne fonctionne pas
- Donne des noms clairs à Button1, Form10, etc. Ce sera plus facile à lire pour toi plus tard ou celui qui passera après toi.

Ton code devrait être :

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
procedure TForm10.Button1Click(Sender: TObject);
Var Total:Float;
begin
  Total := 0;
  With Table2 Do
  Begin
    First;
    While Not Eof Do
    Begin
      total:=total+FieldByName('prix_unitaire').AsFloat;
      Next;
    End;
  End;
  edit11.text:=floattostr(total);
end;

[SergioMaster]

pour obtenir la somme une optimisation serait possible via une Query

Code :

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

1
2
 
SELECT SUM(PRIX_UNITAIRE*QUANTITE) FROM FACTURES WHERE NUM_FACTURE=:n