Comment déclarer une fonction publique ?

Version imprimable

18/03/2015, 09h03
FOCUS77

Comment déclarer une fonction publique ?
Bonjour tout le monde.

Je veux construire la fonction publique suivante :
Code:

1 2 3 4 5 6 7 8 public Function SOMDOM(Table1:TDataset):real ; var i:integer; begin ............ ........... end; end;
mais j'ai le message d'erreur suivant : "identifier" expected but "begin" found".
Aidez-moi s.v.p !

Merci.

Bonjour,

Il ne faut pas placer l'implémentation du code dans la partie interface qui est purement déclarative...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 interface type TMaClasse = class(ClasseParente) public Function SOMDOM(Table1:TDataset):real ; end; //... implementation function TMaClasse.SOMDOM(Table1:TDataset):real ; var i: integer; begin ............ ........... end;
C'est du basique, il faudrait regarder les docs Lazarus voire Delphi... ;)

18/03/2015, 10h50
FOCUS77
D'accord mais lors de l'appel de la fonction
Code:

1 2 3 4 5 procedure TForm1.Button1Click(Sender: TObject); var v:real; begin v:=TFonct.SOMDOM (Ventes); end;
voila le message surgissant: "Only class methods, class properties, and class variables can be referred with class references.
excusez moi je suis nul en fonctions et procédures.:(
18/03/2015, 11h24
gvasseur58
Citation:
Envoyé par FOCUS77

D'accord mais lors de l'appel de la fonction

Code:

1 2 3 4 5 procedure TForm1.Button1Click(Sender: TObject); var v:real; begin v:=TFonct.SOMDOM (Ventes); end;

voila le message surgissant: "Only class methods, class properties, and class variables can be referred with class references.
excusez moi je suis nul en fonctions et procédures.:(
L'erreur ici est de préfixer SomDom par TFonct : le compilateur s'attend non pas à travailler avec une instance de de TFonct (par exemple MyFonct de type TFonct) mais avec la classe elle-même : c'est pourquoi il ne trouve pas parmi les méthodes, propriétés et variables de classe une qui s'appellerait TFonct.

Plusieurs solutions :
1. Déclaration classique d'une fonction - Vous déclarez dans la partie interface de votre unité votre fonction dans une section type:

Code:

function SOMDOM(Table1:TDataset):real;

Dans la partie implementation, vous définissez votre fonction :
Code:

1 2 3 4 5 function SOMDOM(Table1:TDataset):real; begin // votre code ici end;
L'appel se fera sans préfixe et la fonction est publique :D

2. Déclaration au sein d'une classe - Vous déclarez dans la partie interface de votre unité votre fonction dans une classe:
Code:

1 2 3 4 5 6 7 8 type TMyClass = class private // vos déclarations privées public function SOMDOM(Table1:TDataset):real; // vos autres déclarations publiques... end;
Dans la partie implementation, vous définissez votre fonction :
Code:

1 2 3 4 function TMyClass.SOMDOM(Table1:TDataset):real; begin // votre définition end;
Après création de votre classe (instance appelée MyClass, par exemple), vous pourrez utiliser la fonction dans une partie de votre code :

...
X := MyClass.SOMDOM(TableEnCours);
...

Comme votre fonction est déclarée dans la partie public de votre classe TMyClass, elle sera publique :D

Si tout cela vous semble du charabia, c'est que je m'exprime mal ou/et que vous devriez commencer par un cours de base comme celui excellent que propose Eric Thirion :
http://lazarus.developpez.com/cours/...et/?page=pg_01

Bonne continuation ;)

NB : Il me paraît étrange qu'une fonction prenne ainsi un Dataset en paramètres...

Salut à tous

Donc cette fonction est composée de 2 paramètres un Dataset et un numéro de colonne.
Elle sert à calculer la somme d'une colonne de type réel ou entier.

et voilà son code:

Code:

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
type
  TFonct = class
    Function FSUM(Dataset:TDataset;Col:integer):real ;
  end;  
 
 
 
var
  Form1: TForm1; Fonct:TFonct; s:real; Col:integer; 
 
 
 
Function TFonct.FSUM(Dataset:TDataset;Col:integer):real ;
begin
  Dataset.first; s:=0;
  while not Dataset.eof do
  if not Dataset.eof then
  begin
   s:=s+Dataset.Fields[Col].AsFloat ;
   Dataset.Next ;
  end;
end;    
 
 
procedure TForm1.ExecClick(Sender: TObject);
 
begin
  Fonct.FSUM(ventes,6) ;
  ShowMessage(floattostr(s));
end;

merci à vous tous.

[QUOTE=FOCUS77;8175795]

Je me permets quelques remarques (en dehors du fait qu'il y a des manières plus efficaces de faire la somme avec des fichiers) :
Code:

1 2 3 4 type TFonct = class Function FSUM(Dataset:TDataset;Col:integer):real ; end;
Si la classe ne contient que cette fonction, il est préférable de définir la fonction de manière autonome !
Code:

1 2 3 var Form1: TForm1; Fonct:TFonct; s:real; Col:integer;
Il faut éviter au possible les variables globales, sources de confusion et d'erreurs : celles-ci pourraient facilement intégrer votre fonction. Ici, par exemple, étant donné la suite du code, la variable Col est inutile (voire nuisible) puisque jamais utilisée : la variable Col utilisée plus loin est la variable locale fournie par l'en-tête de la fonction ! De même, la variable s est tout aussi inutile puisqu'elle joue le rôle de Result (toujours définie pour une fonction).
Code:

1 2 3 4 5 6 7 8 9 10 11 Function TFonct.FSUM(Dataset:TDataset;Col:integer):real ; begin Dataset.first; s:=0; while not Dataset.eof do if not Dataset.eof then begin s:=s+Dataset.Fields[Col].AsFloat ; Dataset.Next ; end; end;
Votre fonction ne renvoie aucune valeur si bien que le compilateur va vous avertir que la valeur de retour est indéterminée :mrgreen: On devrait avoir une ligne du genre :
Code:

1 2 Result := ...
Il suffit de remplacer tous les s totalement inutiles par Result...
Code:

1 2 3 4 5 6 procedure TForm1.ExecClick(Sender: TObject); begin Fonct.FSUM(ventes,6) ; ShowMessage(floattostr(s)); end;
Votre fonction n'est pas une fonction utile puisque son résultat n'est pas exploité : il s'agit d'une procédure "camouflée". L'ensemble fonctionne parce qu'une fonction peut voir son résultat (ici par ailleurs indéterminé) être perdu sans déclencher de protestation et que vous avez calculé la somme à partir d'une variable spécifique (s).
Il suffirait de remplacer s par Result dans la fonction et de remplacer les deux lignes de ExeClick par une seule :
Code:

1 2 ShowMessage(FloatToStr(FSUM(ventes, 6)));
Si le préfixe Fonct a disparu, c'est que j'ai préféré définir une fonction isolée sans faire intervenir de classe. En gardant la classe, ce qui est toujours possible, on doit la créer avec Create et la détruire avec Free, sinon on aura une erreur de réservation de mémoire ou une fuite de mémoire...

Franchement, je vous encourage à faire des essais comme vous le faites déjà, mais vous devriez cependant écouter le conseil de vous astreindre à une étude d'un cours complet pour maîtriser ces notions.

Bon courage !

Salut

J'en rajoute une couche: avant d'entreprendre d'accéder aux bases de données, il vaut mieux maîtriser les bases tout court...
Dans le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Function TFonct.FSUM(Dataset:TDataset;Col:integer):real ; begin Dataset.first; s:=0; while not Dataset.eof do if not Dataset.eof then begin s:=s+Dataset.Fields[Col].AsFloat ; Dataset.Next ; end; end;
le if est redondant et totalement inutile, le while ayant la fonction d'un if avec itération (en quelque sorte), cela me laisse immédiatement penser à des lacunes. Le code a été corrigé par gvasseur58 sans commentaire à ce sujet. Le code correct est :
Code:

1 2 3 4 5 6 7 8 9 10 Function TFonct.FSUM(Dataset:TDataset;Col:integer):real ; begin Dataset.first; s:=0; while not Dataset.eof do begin s:=s+Dataset.Fields[Col].AsFloat ; Dataset.Next ; end; end;
Le reste était correct.

Pour répéter: Il existe de nombreux tutoriels dont un d'initiation que j'ai traduit sur le Wiki de Free Pascal. Cependant, ne vous découragez pas.

@+ et bon courage

Bonjour à tous
Tout d'abord merci pour votre aide.
Donc notre fonction sera construite dans cette ordre.

1-Déclaration:

Code:

1
2
3
4
type
  TFonct = class
    Function getFSUM(Dataset:TDataset;Col:integer):real ; //le nom de la fonction doit commencer
  end;                                                                     //par get pour qu'elle puisse lire les valeurs '  getFSUM:=s;'

2-Implémentation:

Code:

1
2
3
4
5
6
7
8
9
10
11
Function TFonct.getFSUM(Dataset:TDataset;Col:integer):real ;
var s:real;
begin
  Dataset.first; s:=0;
  while not Dataset.eof do
  begin
   s:=s+Dataset.Fields[Col].AsFloat ;
   Dataset.Next ;
  end;
  getFSUM:=s;
end;

3-Instantialisation:

Code:

1
2
var
  Form1: TForm1; Fonct:TFonct;

4-Exécution:

Code:

1
2
3
4
procedure TForm1.ExecClick(Sender: TObject);
begin
  ShowMessage(floattostr(Fonct.getFSUM(ventes,6)));
end;

merci à tous.

[QUOTE=FOCUS77;8176959]
1-Déclaration:
Code:

1 2 3 4 type TFonct = class Function getFSUM(Dataset:TDataset;Col:integer):real ; //le nom de la fonction doit commencer end; //par get pour qu'elle puisse lire les valeurs ' getFSUM:=s;'
Le commentaire est erroné : le préfixe "get" n'est qu'une convention, mais agréable pour la relecture ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 Function TFonct.getFSUM(Dataset:TDataset;Col:integer):real ; var s:real; begin Dataset.first; s:=0; while not Dataset.eof do begin s:=s+Dataset.Fields[Col].AsFloat ; Dataset.Next ; end; getFSUM:=s; end;
Encore une fois, la variable s est inutile. Il existe une variable "cachée" Result qui est très pratique. La même fonction s'écrira donc :
Code:

1 2 3 4 5 6 7 8 9 10 11 Function TFonct.getFSUM(Dataset:TDataset;Col:integer):real ; // fonction plus lisible, non ? begin Dataset.first; Result := 0; while not Dataset.eof do begin Result:=Result+Dataset.Fields[Col].AsFloat ; Dataset.Next ; end; end;
La fonction fait le même travail : c'est garanti :mouarf:
Code:

1 2 var Form1: TForm1; Fonct:TFonct;
Plutôt que de déclarer Fonct à l'extérieur de TForm1, il vaut mieux la déclarer dans la partie public de cette fiche. La multiplication des variables globales est une plaie. D'ailleurs, puisque le choix a été fait d'inclure la fonction dans une classe (je répète qu'une fonction simple dans ce cas aurait été un choix préférable), quand vas-tu créer une instance de cette classe et quand vas-tu la libérer ? [Rappel : c'est obligatoire !]

En incluant la classe dans la fiche, on créera l'instance dans la méthode OnCreate [ex: Fonct := TFonct.Create] et on la libèrera dans la méthode OnDestroy [Fonct.Free].

On avance, on avance :zoubi:

Gilles

Salut

J'ai écrit une connerie alors je rectifie:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function TFonct.FSUM(Dataset:TDataset;Col:integer):real ; var aField: TField; begin aField := Dataset.Fields[Col]; Dataset.first; Result :=0; while not Dataset.eof do begin Result := Result + aField.AsFloat ; Dataset.Next ; end; end;
Ce sera mieux. Désolé, j'ai répondu vite fait à midi pendant la pause déjeuner... L'emploi de la variable locale est une très légère optimisation.

@+

19/03/2015, 21h10
gvasseur58

Citation:

Envoyé par e-ric

Ce sera mieux. Désolé, j'ai répondu vite fait à midi pendant la pause déjeuner... L'emploi de la variable locale est une très légère optimisation.

Salut e-ric,

Je n'ai pas fait mieux, car je ne me suis même pas inquiété du contenu du code avec le test if en trop :ptdr:.
Mais il faut dire qu'il y avait du boulot et que de traiter un problème à la fois avait sans doute des vertus pédagogiques.

@+
Gilles

Salut gvasseur58

j'ai lu votre correction et je vais l'appliquer. Vous avez tout à fait raison.

Donc la méthode la plus simple est:

1-DECLARATION:
Code:

1 2 3 4 uses Classes, SysUtils, sqldb, db, IBConnection, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, Grids, DbCtrls, StdCtrls, EditBtn; Function FSUM(Dataset:TDataset;Col:integer):real ;
2-IMPLEMENTATION:
Code:

1 2 3 4 5 6 7 8 9 Function FSUM(Dataset:TDataset;Col:integer):real ; begin Dataset.first; Result:=0; while not Dataset.eof do begin Result:=Result+Dataset.Fields[Col].AsFloat; Dataset.Next ; end; end;
3-EXECUTION:
Code:

1 2 3 4 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Floattostr(FSUM(ventes,1))); end;
On peut même appeler cette fonction depuis n'importe quel Form.
Code:

1 2 3 4 procedure TForm2.Button1Click(Sender: TObject); begin ShowMessage(Floattostr(unit1.FSUM(Tiers,0))); end;
il faut dire que vous m'avez appris beaucoup de nouvelles choses!:P et je vous en remercie.
je remercie tous les autres qui ont participé a cette discussion.

FOCUS.