Précédent   Planet Emulation Forums > Divers > Bla-Bla

Bla-Bla Lieu pour discuter librement de tout ce que vous voulez dans la limite du raisonnable bien entendu ;-)

Réponse
 
Outils de la discussion Modes d'affichage
Vieux 13/10/2004, 16h52   #1
Titoph
Membre Assidu
 
Avatar de Titoph
 
Date d'inscription: 09/2002
Localisation: Nantes
Messages: 506
Titoph sait se tenir
Envoyer un message via MSN à Titoph
Voilà, j'ai un sujet de TP pour lequel il faut permettre l'enregistrement de données de type défini dans un fichier.
L'ajout de données (ici des CDs en l'occurrence) et l'affichage sont faits. Mais j'ai un bug concernant l'affichage du titres des CDs et je ne sais pas pourquoi.

Voilà mon code. J'ai viré le code du menu et des appels de fonctions.
Je vous ai donc mis ma déclaration de mon type 'cd' et du fichier 'file of cd' ainsi que le code de mes procédures.


type
cd = record
reference : integer;
titre : string;
duree : integer;
end;
Fcd = file of cd;

auteur = record
reference : integer;
nom : string;
end;
Fauteurs = file of auteur;

procedure ajout_CD (var fic : Fcd);
var
newcd : cd;
begin
clrscr;
writeln;
writeln (' -----------------------------------');
writeln (' * Ajout d un CD *');
writeln (' -----------------------------------');
writeln;
writeln (' Veuillez indiquer les donnees suivantes :');
writeln;
write (' Reference : ');
readln (newcd.reference);
write (' Titre : ');
readln (newcd.titre);
write (' Duree : ');
readln (newcd.duree);
reset(fic);
seek(fic, FileSize(fic));
write(fic, newcd);
close(fic);
writeln;
writeln (' Ajout du CD realise avec succes !');
writeln;
writeln (' Appuyer sur <ENTER> pour retourner au menu ');
readln;
end;



procedure affiche_CD (var fic: Fcd);
var
cdAff : cd;
begin
clrscr;
writeln;
writeln (' -----------------------------------');
writeln (' * Affichage des CDs *');
writeln (' -----------------------------------');
writeln;
reset(fic);
while not eof(fic) do
begin
read(fic, cdAff);
writeln (' Reference : ', cdAff.reference);
writeln (' Titre : ', cdAff.titre);
writeln (' Duree : ', cdAff.duree);
writeln;
end;
close(fic);
writeln (' Appuyer sur <ENTER> pour retourner au menu ');
readln;
end;


Mon bug se présente par l'absence du titre à l'affichage ou alors affichage de n'importe quoi, genre titre du dernier cd rajouté ou même des morceaux de mon menu
C'est peut-être un problème de buffers vu que ce ne concerne que le titre de type string mais je m'y connais pas grand chose en PASCAL. Une idée ????
__________________
Titoph' (Webmaster)
Titoph est déconnecté   Réponse avec citation
Vieux 13/10/2004, 17h08   #2
Proshin Milamken
Invité
 
Messages: n/a
Peut être trouveras tu ton bonheur en visitant ce lien entièrement dédié à la programmation du pascal

http://www-ipst.u-strasbg.fr/pat/program/pascal.htm
  Réponse avec citation
Vieux 13/10/2004, 21h13   #3
Titoph
Membre Assidu
 
Avatar de Titoph
 
Date d'inscription: 09/2002
Localisation: Nantes
Messages: 506
Titoph sait se tenir
Envoyer un message via MSN à Titoph
Personne d'autre n'aurait une idée ???
__________________
Titoph' (Webmaster)
Titoph est déconnecté   Réponse avec citation
Vieux 13/10/2004, 21h21   #4
Eclipse
Pilier du Forum
 
Avatar de Eclipse
 
Date d'inscription: 10/2001
Localisation: A 50 mètres de Paris
Messages: 2 323
Eclipse a une aura spectaculaireEclipse a une aura spectaculaire
Envoyer un message via MSN à Eclipse
Je ne connais pas le Pascal, mais le problème m'est connu en C... et il fallait faire un fflush(stdin) : c'est un genre de nettoyage de buffer d'entrée...

Sinon, tu peux consulter cette adresse: http://pascal.developpez.com/ où il y quelques tutoriels...
__________________
"There's only one race ... human race" (Bodycount).
Mon autre avatar
Eclipse est déconnecté   Réponse avec citation
Vieux 13/10/2004, 21h30   #5
Titoph
Membre Assidu
 
Avatar de Titoph
 
Date d'inscription: 09/2002
Localisation: Nantes
Messages: 506
Titoph sait se tenir
Envoyer un message via MSN à Titoph
Merci pour l'info Eclipse mais en fait il suffisait que j'initialise la taille de mes champs string !
Tout simplement, je disais bien aussi que c'était une connerie.
Un petit String[30] et c'était résolu.
__________________
Titoph' (Webmaster)
Titoph est déconnecté   Réponse avec citation
Vieux 13/10/2004, 21h43   #6
Eclipse
Pilier du Forum
 
Avatar de Eclipse
 
Date d'inscription: 10/2001
Localisation: A 50 mètres de Paris
Messages: 2 323
Eclipse a une aura spectaculaireEclipse a une aura spectaculaire
Envoyer un message via MSN à Eclipse
Ok, je vois... le principe est le même en C: entre les char * et les char[xx] (ou xx est la taille), il ne faut pas se tromper et bien savoir les manipuler...
__________________
"There's only one race ... human race" (Bodycount).
Mon autre avatar
Eclipse est déconnecté   Réponse avec citation
Vieux 13/10/2004, 22h10   #7
ChemicalStöf
autiste
 
Avatar de ChemicalStöf
 
Date d'inscription: 12/2002
Localisation: jm'appelle Kimi, jviens d'Paris
Messages: 7 392
ChemicalStöf devrait être votre modèleChemicalStöf devrait être votre modèleChemicalStöf devrait être votre modèleChemicalStöf devrait être votre modèleChemicalStöf devrait être votre modèleChemicalStöf devrait être votre modèleChemicalStöf devrait être votre modèle
Envoyer un message via MSN à ChemicalStöf
Si tu trouves une fille avec un string[36] ou même un string[38], pense à moi
__________________
t'énerve pas, jt'explique.
ChemicalStöf est déconnecté   Réponse avec citation
Vieux 13/10/2004, 22h20   #8
Bomber
Légende non-officielle.
 
Avatar de Bomber
 
Date d'inscription: 10/2001
Localisation: Près de Lille
Messages: 6 337
Bomber est évité même par les mouchesBomber est évité même par les mouchesBomber est évité même par les mouchesBomber est évité même par les mouches
Envoyer un message via MSN à Bomber
Par contre, les char[XX] tu peux les garder
__________________
http://zapier.planetemu.net/planetars/2013/bannieres-2013/bomber-planetars2013-bannieres.gif + 2014
Bomber est déconnecté   Réponse avec citation
Vieux 14/10/2004, 00h41   #9
Titoph
Membre Assidu
 
Avatar de Titoph
 
Date d'inscription: 09/2002
Localisation: Nantes
Messages: 506
Titoph sait se tenir
Envoyer un message via MSN à Titoph
ChemicalStof & Bomber
__________________
Titoph' (Webmaster)
Titoph est déconnecté   Réponse avec citation
Vieux 14/10/2004, 02h08   #10
Kobras
1ier inscrit sur le forum
 
Avatar de Kobras
 
Date d'inscription: 10/2001
Localisation: Lyon
Messages: 8 793
Kobras a un nom que tout le monde connaîtKobras a un nom que tout le monde connaîtKobras a un nom que tout le monde connaîtKobras a un nom que tout le monde connaîtKobras a un nom que tout le monde connaîtKobras a un nom que tout le monde connaît
lo ca me rapelle quand j'etait en bts. A chaque fois qu'on avais cour avec notre prof d'algo/prog qui etait pas mal gaulé on se demandais chaine de charactere ou pas aujourd'hui ?
__________________
http://forums.planetemu.net/picture.php?albumid=17&pictureid=206
http://zapier.planetemu.net/planetars/2013/bannieres-2013/kobras-planetars2013-bannieres.gif
Kobras est déconnecté   Réponse avec citation
Vieux 14/10/2004, 11h59   #11
Dinofly
Président
 
Avatar de Dinofly
 
Date d'inscription: 10/2001
Messages: 6 407
Dinofly peut être fier de luiDinofly peut être fier de luiDinofly peut être fier de luiDinofly peut être fier de luiDinofly peut être fier de luiDinofly peut être fier de luiDinofly peut être fier de luiDinofly peut être fier de lui
Envoyer un message via ICQ à Dinofly
Citation de moi quand j'apprenais le VB:

"Si je veux faire une Collection de String, je commence par Dim ?"
__________________
http://dinofly.planetemu.net/images/president_planet_2012.png
http://forums.planetemu.net/picture.php?albumid=17&pictureid=198
Dinofly est déconnecté   Réponse avec citation
Vieux 15/10/2004, 23h32   #12
LXS
Membre Occasionnel
 
Date d'inscription: 06/2002
Localisation: Lyon
Messages: 161
LXS sait se tenir
Envoyer un message via ICQ à LXS
Très bon eheh.

Je n'ai qu'une mini expérience en Pascal ( d'une part j'aime pas ,d'autre pas même à l'iut on nous a pas obligé ), mais l'affichage de "n'importe quoi" a sûrement quelquechose à voir avec tes \0 mal placés ou des espaces non pris en compte.

Zip moi tout, je m'y attelerai, j'ai déjà dû debug les TPs foireux de ma copine
__________________
Développement et spécifications des consoles?
http://www.dev-fr.com
[21:23:44] &lt;@Bomber``&gt; moralité: les paidais sont les femmes parfaites
LXS est déconnecté   Réponse avec citation
Réponse


Utilisateurs regardant la discussion actuelle : 1 (0 membre(s) et 1 invité(s))
 
Outils de la discussion
Modes d'affichage

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 23h46.


vBulletin® v.3.8.7, Copyright ©2000-2024, Jelsoft Enterprises Ltd.