classe uses et déclaration interface fonction

Version imprimable

bonjour à tous,
j'ai crée 3 unités , une unité ou je déclare toutes mes variables globales, mais j'aimerais y ajouter des fonctions générales
par contre j'ai une erreur à la compilation.

[Erreur] Variable.pas(8): Déclaration attendu(e) mais 'USES' trouvé(e)

voici mon 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 unit Variable; interface function GestionFichier:boolean ; function GestionDateHeure:string; uses ExtCtrls,SysUtils; //-----------------------------------------------------------------------------// //Fonctions de la dll DIASDAQ utilisees pour detection //-----------------------------------------------------------------------------// function DDAQ_DEVICE_DO_DETECTION():LongWord;stdcall;external 'DIASDAQ.dll'; . . . implementation // Gestion de la création du fichier LogCamera.Dat et ouverture/fermeture de celui-ci function GestionFichier:boolean ; var i:integer; begin end;

De mémoire ton code devrait commencer comme celà :

Code:

1
2
3
4
5
6
7
8
unit Variable;
 
interface
 
uses ExtCtrls,SysUtils;
type
        function GestionFichier:boolean ;
        function GestionDateHeure:string;

09/08/2007, 10h45
Hypollite76

ca marche pas j'ai ce code d'erreur
[Erreur] Variable.pas(10): Identificateur attendu(e) mais 'FUNCTION' trouvé(e)

Citation:

Envoyé par ALWEBER

De mémoire ton code devrait commencer comme celà :

Code:

1
2
3
4
5
6
7
8
unit Variable;
 
interface
 
uses ExtCtrls,SysUtils;
type
        function GestionFichier:boolean ;
        function GestionDateHeure:string;

Pourquoi ne pas ouvrir une de vos unités et regarder comment elle est architecturée?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Unit MonNomUnite;
Interface
Uses 
MesUses;
Procedure Uneproc();
Function Unefonc():Untyperetour;
Implementation
Procedure Uneproc();
var
Mesvars;
begin
   // Mon code
   end;
 
Function Unefonc():Untyperetour;
var
MesVars;
begin
   // Mon Code
   end;
end.

Cordialement,
Hauwke

Excuse j'ai fait une petite erreur. Le mot Type était en trop

Code:

1
2
3
4
5
6
7
8
9
 
unit Variable;
 
interface
 
uses ExtCtrls,SysUtils;
 
function GestionFichier:boolean ;
function GestionDateHeure:string;

09/08/2007, 13h15
Hypollite76

ok ca fonctionne,
merci;)