Discussion :

[diden138]

Salut, j'ai un petit problème. Voilà, j'ai créé un fichier d'enregistrements que j'ai nommé fact.dat. Bon maintenant, je veux afficher des données numériques à partir des enregistrements que contient ce fichier : j'ai essayé avec outtextxy(80,120,p.num) mais, lors de la compilation 'type mismatch' .
Ma question : est-ce qu'il n'y a pas un moyen d'afficher des données numériques déjà existantes sur un fichier en mode graphique...
@++ et merci encore

[Tuxico]

euh un peu plus de précisions peut-être...un bout de code? la déclaration de tes types? ta procédure d'affichage?

[Sheriff]

salut !
la fonction outtextxy() n'affiche que les char...
tu devrais convertir d'abord ta variable p.num en chaine de caractères.
jette un oeil sur la fonction str
@+

[diden138]

mon code fait plus de 500 lingnes je vais te donner l'essentiel

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
 
type
      facture=record
                          id:string;
                          ttc,prix:real;
                          quantite,numero:integer;
                          jour:1..31;
                          moi:1..12;
                          annee:1986..2097;
var
f:file of facture;////////////////il y'a beacoup d'autre variable j'ai ecris l'essentiel
p:facture;
begin///////////apré l'initialisation du mode graphique et tous ca//je vous rapelle que le fichier qui contient les enregistrement est deja rempli au part avant
outtextxy(80,120,p.num);////'erreur type mismatch'
est ce qu'il ya une astuce pour remedirer a cela d'autant plus que outtext est specialisée dans l'affichage d'une chaine de caractères pas de données
 
 numerique tel que p.num

j'espere avoir ete clair sinon je vous envois tous le programe comme pience jointes
@++ et merci encore

[Sheriff]

num n'est pas une propriété de facture !!!
si tu as voulu abréger (si tu parles plutot de p.numero) alors la fonction str te servira à convertir en chaine de caractère avant d'afficher avec outtextxy
@+

[diden138]

ok j'y jetterais un coup d'oeil mais je crois pas que sa resoulerais le probleme
a propos je voulais dire p.numero pas p.num

[Sheriff]

le str résouds ton problème à coup sur !
syntaxe:

Code :

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

1
2
3
 
str(p.numero, s); 
outtextxy(abscisse, ordonee, s);

avec var s:char;
@+

[diden138]

ok je vais essayer maintenant ...
et merci encore
@+

[diden138]

j'ai une arreur 'disc read erro' je crois pas que ca vient de 'str'
mon aide memoire de turbo pascal m'a laisser tomber...

[denokan]

est-ce que tu n'essaie pas de lire plus d'informations qu'il n'y en a dans ton fichier ?

[Sheriff]

salut !
disk error ne peut en aucun cas provenir de cette fonction
revois la gestion de ton fichier (au besoin sers toi de la directive {$i})
@+

[diden138]

mon probleme venait en faite que je voulais lire au dela de eof(f) merci encore pour votre aide magnifique forum

[Sheriff]

salut !
on dirait que t'as oublié le tag [IMG]D:\Documents and Settings\Administrateur\Mes documents\Mes images\resolu.gif[/IMG] ???
@+

[Loceka]

salut !
on dirait que t'as oublié le tag [IMG]D:\Documents and Settings\Administrateur\Mes documents\Mes images\resolu.gif[/IMG] ???
@+

Bien joué !