Discussion :

[Hypollite76]

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 :

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

[ALWEBER]

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

Code :

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

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

[Hypollite76]

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

[Hauwke]

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

Code :

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

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 :

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

[ALWEBER]

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

Code :

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

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

[Hypollite76]

ok ca fonctionne,
merci