RECHERCHER :
COMMUNAUTE MP
Identifiez vous ...
Devenir Membre
J'ai oublié mon MDP
DOMAINE MP
Bavardages
Langages Généraux
Langages Web
Langages DotNet
Autres langages
Dev. Jeux Video
Sécurité
Sys. Exploitation
Graphismes
Logiciels
Réseaux
Bases de données
Méthodologies
Emplois High-tech
Aide juridique
Articles juridiques
FORUM
Index des forums
Ajouter un sujet
Rechercher sujet
Contact Responsable
Devenir modérateur
CHAT MP IRC
Votre pseudo ...
Srv: irc.moteurprog.com
Chan: #MoteurProg
PARTICIPER
Plus de 3500 emplois.
Rechercher un job
Déposez votre CV
Emplois High-tech

Visiteur MP

 sauvegarde fichier typé

Forum : PASCAL
Sous Catégorie : Aucune
Type du sujet : Sujet Normale
FAQ : FAQ PASCAL

SUIVI DES SUJETS PAR MAIL

SUIVI PAR MAIL INACTIF

RESOLUTION DU SUJET SUJET RESOLU
BLOQUAGE DU SUJET SUJET ACTIF
APPARTENANCE A LA FAQ N'APPARTIENT PAS A LA FAQ


POSTER UN NOUVEAU SUJET REPONDRE A CE SUJET

FORUM PASCAL

PREMIERE PAGE

PAGE PRECEDENTE

Page précedente

Page suivante

PAGE SUIVANTE

DERNIERE PAGE
devlio
Nouveau membre
Avatar de devlio
Inscrit : 02/03/2008
Messages : 6
Message
#151198
Posté le 26/03/08 à 19:22
salut tout le monde !!!

j'ai un probleme de sauvegarde,

procedure save(var p : pt); var chemin : string; erreur : integer; fichier : file of onion; begin writeln('vlez vous save ? (ok)'); readln(ch); if ch ='ok' then begin writeln('o— sauvegarder ?'); readln(chemin); chemin := chemin + 'on'; {$I-} assign(fichier,chemin); reset(fichier); {$I+} erreur := IOresult; if erreur = 0 then begin while p <> nil do begin write(fichier,p^); p := p^.suiv; end; close(fichier); writeln('c un succes'); end; end; end;
il affiche unique ment le message avant le "assign" je ne sais plus quoi faire
jettez un oeil SVP

HAUT DE PAGE

PROFIL MEMBRE LUI ECRIRE 

Publicité
Inscrit : X
Messages : X
Message
#Aucun

HAUT DE PAGE

  

devlio
Nouveau membre
Avatar de devlio
Inscrit : 02/03/2008
Messages : 6
Message
#151208
Posté le 27/03/08 à 07:14
salut
je pense qu'en rajoutant un readln; avant le message tout va bienSmiley en tout cas dans l'executionSmiley

HAUT DE PAGE

PROFIL MEMBRE LUI ECRIRE 


    PAGE : [1]



.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.