[TP] Gestion des données en mode graphique

Version imprimable

16/05/2006, 12h12
diden138

[TP] Gestion des données en mode graphique

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... :roll:
@++ et merci encore
16/05/2006, 12h30
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? :roll:
16/05/2006, 12h43
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
@+

salut,

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

Code:

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

16/05/2006, 12h54
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
@+
16/05/2006, 12h58
diden138

salut,

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
16/05/2006, 13h46
Sheriff
le str résouds ton problème à coup sur !
syntaxe:
Code:

1 2 3 str(p.numero, s); outtextxy(abscisse, ordonee, s);
avec var s:char;
@+
16/05/2006, 14h02
diden138

salut,

ok je vais essayer maintenant ...:D
et merci encore
@+
16/05/2006, 14h28
diden138

salut

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...:roll:
16/05/2006, 16h16
denokan

est-ce que tu n'essaie pas de lire plus d'informations qu'il n'y en a dans ton fichier ?
16/05/2006, 20h06
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})
@+
19/05/2006, 00h02
diden138

salut,

mon probleme venait en faite que je voulais lire au dela de eof(f) merci encore pour votre aide magnifique forum:D
19/05/2006, 11h15
Sheriff

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

Citation:

Envoyé par Sheriff

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

Bien joué ! :P