Bonjour , j'assiste à une erreur a l'execution
http://shaka1993.free.fr/fdf/portail...rorruntime.JPG
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.
Et dans mon projet (jai simplifié le code donc il reste des variables déclarées pour rien)Code:
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.
Code:
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;