Discussion :

[amtdev]

Bonjour,
J'ai besoin de votre aide. J'ai pas su comment déclarer et appeler une procédure externe en turbo pascal sous windows (TPW)
En fait, j'ai créé une procédure que j'ai enregistré dans un fichier .pas et dans un autre fichier (.pas bien sur) je la déclare avec l'option "external", mais je n'ai pas su utiliser cette option, ça m'affiche un message d'erreur. Vous serez gentil de m'indiquer comment utiliser cette option (explication sur la syntaxe).Merci.

[Alcatîz]

Bonjour,

La directive external sert soit à inclure du code objet externe (par exemple, une procédure écrite en Assembleur ou en C), soit à importer de manière statique une procédure contenue dans une DLL.

Mais je pense plutôt que ce que tu cherches à faire c'est d'inclure dans un fichier source une procédure se trouvant dans un autre fichier source.
Si le fichier source externe ne contient que cette procédure, tu peux utiliser la directive $I dans ton source principal. Par exemple, si le source externe s'appelle externe.pas, tu peux inscrire cette directive à l'endroit adéquat dans ton source principal :

Code :

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

{$I externe}

et le compilateur fera exactement comme si les deux sources n'en faisaient qu'un.

[amtdev]

Merci pour votre explication. Mais si je n'abuse pas de votre temps, peut tu me vérifier ce 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
24
program complexes;
uses wincrt;
type comp = record
                  x,y  : real;
            end;
 
var  z,c,zc  : comp;
procedure pf(pz,pc:comp; var f:comp);
    begin
         f.x := pz.x * pz.x - pz.y * pz.y;
         f.y := 2 * pz.x * pz.y;
         f.x := f.x + pc.x;
         f.y := f.y + pc.y;
    end;
 
 
begin
     $I ext_comp.pas /I 'c:\';
     readln(z.x,z.y,c.x,c.y);
     pf(z,c,zc);
     writeln(zc.x:5:2,zc.y:5:2);
     complexe(zc.x,zc.y);
     ext_comp(zc.x,zc.y);
end.

La procédure "ext_comp.pas" contient le code suivant:

Code :

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

1
2
3
4
5
6
procedure complexe(pz,pc:real);
    begin
         if pc>0      then writeln('z = ',pz:4:1,' + ',pc:4:1,' i')
         else if pc<0 then writeln('z = ',pz:4:1,' - ',abs(pc):4:1,' i')
         else if pc=0 then writeln('z = ',pz:4:1);
    end.

La procédure que je veux appeler c'est: "ext_comp.pas" et elle est dans : "c:\"

[Alcatîz]

L'utilisation de la directive $I est :

Code :

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

{$I c:\ext_comp}

(avec les accolades).
Mais, en fait, quelle est la raison de garder cette procédure dans un autre fichier source ?

[amtdev]

C'est vrai que dans cet exemple ça n'a pas de sens, mais c'est pour comprendre le principe.
Après correction le compilateur m'affiche le message d'erreur suivant:
" Error 118:Include files are not allowed here " ????

[droggo]

Vea,

Attention à la définition de ton type

Code :

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

1
2
3
type comp = record
                  x,y  : real;
            end;

qui recoupe un type prédéfini de TP, d'où risques de confusion.