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...