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