[D6] include : quelle syntaxe ?

include : quelle syntaxe ? [D6] - Delphi/Pascal - Programmation

Marsh Posté le 20-02-2007 à 18:45:28    

Bonsoir.  
 
Quelle est la syntaxe de la directive INCLUDE ? Où  la placer, dans le code ?  
 
[#009b63]unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ShellApi;
 
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
 
   etc...
   
   
    private
    { Déclarations privées }
    public
    { Déclarations publiques }
end;
   
   
procedure copier(Handle:HWND;Source,Cible:String);
procedure machin(Chaine : string);
procedure chose;
 
 
var
  Form1: TForm1;
 
  Nom_Fichier : string;  
  etc  (autres variables globales)
   
 
implementation
 
 
{$R *.dfm}
 
 
procedure machin(Chaine : string);
begin
end;
 
etc... implémentation des autres procédures et fonctions
 
end.  
 

[/#002ad4]
Je place $INCLUDE fichier.pas ... où ça /?  
 
Merci ;)

Message cité 1 fois
Message édité par HERIBERT le 20-02-2007 à 18:46:28
Reply

Marsh Posté le 20-02-2007 à 18:45:28   

Reply

Marsh Posté le 21-02-2007 à 12:26:36    

HERIBERT a écrit :

Bonsoir.  
 
Quelle est la syntaxe de la directive INCLUDE ? Où  la placer, dans le code ?  
 
[#009b63]unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ShellApi;
 
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
 
   etc...
   
   
    private
    { Déclarations privées }
    public
    { Déclarations publiques }
end;
   
   
procedure copier(Handle:HWND;Source,Cible:String);
procedure machin(Chaine : string);
procedure chose;
 
 
var
  Form1: TForm1;
 
  Nom_Fichier : string;  
  etc  (autres variables globales)
   
 
implementation
 
 
{$R *.dfm}
 
 
procedure machin(Chaine : string);
begin
end;
 
etc... implémentation des autres procédures et fonctions
 
end.  
 

[/#002ad4]
Je place $INCLUDE fichier.pas ... où ça /?  
 
Merci ;)


:cry:

Reply

Marsh Posté le 21-02-2007 à 15:58:34    

Ça dépend un peu de ce que tu veux faire...  
En général on rajoute juste le nom du fichier .pas (sans le .pas) dans la liste des "uses". Soit tout au début si son contenu est nécessaire pour les déclarations de types, soit dans "implementation" si c'est juste pour y faire appel dans tes fonctions/procédures.
Le $I c'est pour des fichiers .inc, pour des "conditional defines" en général.

Reply

Marsh Posté le 21-02-2007 à 17:31:44    

antp a écrit :

Ça dépend un peu de ce que tu veux faire...  
En général on rajoute juste le nom du fichier .pas (sans le .pas) dans la liste des "uses". Soit tout au début si son contenu est nécessaire pour les déclarations de types, soit dans "implementation" si c'est juste pour y faire appel dans tes fonctions/procédures.
Le $I c'est pour des fichiers .inc, pour des "conditional defines" en général.


Salut , Antp :hello: Le roi du Delphi :jap:  
Ca fait un biout de temps que je ne t'avais pas vu par ici !
 
Donc, ce sera ds Implementation. Si c'est là, en principe, mes variables devraient être "visibles" par les procédures imlplémentées ds le fichier contenant la directive Include.  
 
Ce quui devrait donner ceci :
 
var
  Form1: TForm1;
 
  Nom_Fichier : string;  
  etc  (autres variables globales)
   
 
implementation
 
 
{$R *.dfm}
 
Include page_truc   // et sans ".pas"
 
procedure machin(Chaine : string);
begin
end;
 

 
Je vais l'essayer.

Reply

Marsh Posté le 22-02-2007 à 10:50:59    

"uses", pas "include" :o
 
En effet ça faisait longtemps que je n'avais plus posté par ici, je passe moins souvent sur HFR et j'oubliais de vérifier les nouveaux topics Delphi.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed