include : quelle syntaxe ? [D6] - Delphi/Pascal - Programmation
Marsh Posté le 21-02-2007 à 12:26:36
HERIBERT a écrit : Bonsoir. |
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.
Marsh Posté le 21-02-2007 à 17:31:44
antp a écrit : Ça dépend un peu de ce que tu veux faire... |
Salut , Antp Le roi du Delphi
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.
Marsh Posté le 22-02-2007 à 10:50:59
"uses", pas "include"
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.
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 édité par HERIBERT le 20-02-2007 à 18:46:28