Discussion :

[gilardino]

Salut tout le monde

J’ai créé une unité « unit1 » pour regrouper mes fonction et procédures afin que je puisse les réutiliser, mais je ne parviens pas à faire appeler ces fonctions et procédures de cette unité de puis une fiche de mon projet, sachant que l’unité : « unit1 » fait partie de ce même projet.

Voici un exemple de ma déclaration de l’unité unit1 sur mon projet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
unit Unit1;
 
interface
 
implementation
function somme(a,b:integer):integer;
begin
somme:=a+b;
end;
end.

Voici la déclaration de me fiche principale form1

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
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit1;

type
  ……..

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
 x:=unit1.somme(1,2);
end;
end.

Et lorsque j’appelle la fonction somme déclaré dans l’unité unit1, depuis la form form1, le message d’erreur suivant apparaît :

Code :

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

1
2
3
 
[Erreur] Unit2.pas(29): Identificateur non déclaré : 'somme'
[Erreur fatale] Project1.dpr(6): Impossible de compiler l'unité utilisée 'Unit1.pas'

[droggo]

Gio,

Il faut préciser les fonctions/procédures exportées par ton unité dans la section interface:

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
unit Unit1;
 
interface
function somme(a,b:integer):integer;
 
implementation
function somme(a,b:integer):integer;
begin
somme:=a+b;
end;
end.
 
function difference(a,b:integer):integer;
begin
difference:=a-b;
end;
end.

somme est visible de l'extérieur, pas difference

Un petit effort pour lire quelques docs serait utile.

[archonte]

De plus, la tendance est d'utiliser la variable Result plutôt que le nom de la fonction pour retourner une valeur.

Code :

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

1
2
3
4
function Somme(a : integer; b : integer) : integer;
begin
  Result := a + b;
end;

[Nono40]

De plus, la tendance est d'utiliser la variable Result plutôt que le nom de la fonction pour retourner une valeur.

Ce n'est pas la même chose :
- en écriture c'est équivalent
- en lecture Result lit le résultat en cours, le nom de la fonction provoque un appel récursif de la fonction.