Discussion :

[molesqualeux]

Bonjour , j'assiste à une erreur a l'execution



Pourtant je cherche à faire un truc très simple c'est d'ecrire un string dans une fenetre graphique.

Dans un program test ca marche mais des que je l'incorpore dans un gros projet (enfin au moins 1000lignes) il foire à un endroit et pas aux autres.

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
 
program test;
uses Wincrt,wingraph;
 
var s:string;
var x,y : real;
 
Begin
 
x:= 10;
y:= 2;
s := 'valeur';
 
debutgraphe;
ecrire(x,y,s);
fingraphe;
   
End.

Et dans mon projet (jai simplifié le code donc il reste des variables déclarées pour rien)

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
 
procedure dessiner_sortie (sortie : char; num:integer; les_portes : tab_portes;coor_por:tab4; coor_rect :tab8);
var portet : door;
var etaget,colonnet : integer;
var y1,y2,xi,xf,yi,yf,x,y : real;
var xs,ys :real;
var sortiet : string;
var s:string
Begin
 
x:= 10;
y:= 2;
s := 'valeur';
ecrire(x,y,s)
End;