Discussion :

[abkthekingABK]

Bonjour,
J'ai une fonction de calcul dans delphi 7, codée comme suit :

Code :

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

1
2
3
4
5
6
Function Calcul1(ds3,ds4 : TDataset) : Integer;
begin
 result :=
(ds3.fieldbyname('tot_poid').AsInteger)-(ds4.FieldByName('poid_livr').AsInteger);//pour me donne le pois rest
(ds3.fieldbyname('tot_poid').AsInteger)/(ds4.FieldByName('poid_rot').AsInteger);//pour me donne les tranche de pois a livrer
end;

Quand je compile il me donne ce message d'erreur :

Code :

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

[Error] vente.pas(244): Statement expected, but expression of type 'Extended' found

[AdmChiMay]

Bonjour,

Après ton ":=" tu passe à la ligne, ok.
Au bout de la ligne qui suit, je vois un ";" (juste avant le commentaire) ?
Donc fin d'expression et la ligne qui suit n'est alors ni une expression ni un appel de fonction...
Sans oublier que je vois pas d'où sort le "result", ou alors c'est une variable globale.

[Andnotor]

@abkthekingABK

Etre débutant n'explique pas tout, il n'y a aucune réflexion derrière ce que tu écris

De plus, F1 sur l'erreur te donnerait toutes les infos la concernant, ici Erreur 2014.

Sans oublier que je vois pas d'où sort le "result", ou alors c'est une variable globale.

C'est implicitement le résultat de la fonction. On pourrait aussi l'écrire Calcul1 := 1+2; ou suivant la version de Delphi, exit(1+2);

[paulfr]

Bonjour,

Scientifiquement, assimiler un poids à un entier est une erreur : un réel serait plus logique et simplifierait vos calculs.

[SergioMaster]

Scientifiquement, assimiler un poids à un entier est une erreur : un réel serait plus logique et simplifierait vos calculs.

quitte par la suite, si besoin, à faire un arrondi pour obtenir des Kilos

[abkthekingABK]

Bonjour,
quand je supprime la ligne 5 la fonction marche normalement, mais quand je l'ajoute l'erreur revient...

[tourlourou]

Ton problème n'est pas tant de savoir si l'erreur disparaît ou réapparaît avec une ligne, que d'essayer de comprendre pourquoi.

Pour ceci, il suffit que tu lises ton code en te demandant :
- que doit renvoyer la fonction ?
- est-ce bien ce que j'ai indiqué dans le prototype de la fonction ?
- le fait-elle (cad affecte-t-elle le résultat du bon calcul à la valeur de retour de la fonction) ?
- à quoi est destinée la ligne 5 ?

J'ajouterais bien que des pistes ont été soulignées dans la discussion, mais qu'il faut faire le minimum d'effort pour t'en saisir et t'engager dans la résolution de tes problèmes autrement qu'en attendant que quelqu'un les résolve à ta place, avec pas mal d'intuition, tellement ils sont mal présentés.

[Charly910]

Bonjour,
c'est normal, comme te l'a dit AdmChiMay c'est la ligne 5 qui est incorrecte.

Ta fonction ne peux pas avoir 2 résultats entiers. Il faut que tu fasses 2 fonctions : une ayant pour Result la ligne 4 et l'autre la ligne 5

A+
Charly

Grillé par Tourlourou !!

[abkthekingABK]

Bonjour,
Monsieur tourlourou, je ne veux pas que quelqu’un résolve mon problème,
je veux quelqu'un qui voit ce que je ne vois pas, avec tous mes respects à tous.
Je n'arrive pas à remercier les gents de ce site, ce sont de bons gents.