Discussion :

[[R]Viper]

Heu, avec 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
 
program testgraph;
 
uses
    graph;
 
var
   GraphDriver, GraphMode : smallint;
 
BEGIN
     GraphDriver := Detect;
     GraphMode := 0;
     InitGraph (GraphDriver,GraphMode,'') ;
END.

Il me dit...
1 / 1 graph.pas
Fatal: Syntax error, UNIT expected but PROGRAM found

Il s'attend à un UNIT mais il trouve program, je comprends pas trop...

J'utilise Dev-Pascal.

[Haywire]

je ne connais pas dev pascal mais est-ce que c'est toi qui a écrit l'unit graph?
Si oui c'est que tu l'as écris comme un programme au lieu d'une unité.

[[R]Viper]

Bah, j'ai utilisé l'unité graph qui vient avec FreePascal.

[Alcatîz]

Bonjour !

N'aurais-tu pas deux fichiers .pas avec l'en-tête PROGRAM dans le projet en cours ?

[[R]Viper]

Bonjour !

N'aurais-tu pas deux fichiers .pas avec l'en-tête PROGRAM dans le projet en cours ?

Bah, c'est le seul fichier que j'ai. alors j'ai pas d'autre fichier avec program dedans.

Fichier test graph.pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
program testgraph;
 
uses
    graph;
 
var
   GraphDriver, GraphMode : smallint;
 
BEGIN
     GraphDriver := Detect;
     GraphMode := 0;
     InitGraph (GraphDriver,GraphMode,'') ;
END.

C'est pas un projet, c'est un simple «New source file».

[Alcatîz]

Je ne parviens pas à reproduire ton erreur.

C'est vrai que, par défaut, c'est une unité qui est créée lorsqu'on fait "New source file" mais ça compile très bien chez moi avec un programme principal.

Avec quelles versions travailles-tu :
- De Dev-Pascal (perso 1.9.2) ?
- De Free Pascal (perso 2.0.4) ?