IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Turbo Pascal Discussion :

[TPW] Création d'un répertoire


Sujet :

Turbo Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Mars 2007
    Messages
    35
    Détails du profil
    Informations forums :
    Inscription : Mars 2007
    Messages : 35
    Par défaut [TPW] Création d'un répertoire
    bonjour a tous
    alors je veux savoir comment creer un repertoire avec TPW 1.5 . et merci
    voici mon code :
    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
    18
    19
    20
     
    procedure creation( var F : fichier );
    const chemin = 'c:\4si\';
      var
        nf           : string [15];
        nom_logique  : string[50];
    begin
      write (' Donner le nom du Ficher SVP  : ');
      readln(nf);
      nom_logique := chemin+nf+'.DAT';
      write(nom_logique);
      Assign ( F,nom_logique);
      rewrite(F);
    end;
     
    {Programme Pricipal }
    BEGIN
       { MkDir('c:\4si');  au contaraire de la version dos , cette instruction n'est                      pas acceptée par cette version du pascal } 
      creation (liste);
    END.
    et merci d'avance

  2. #2
    Expert confirmé

    Inscrit en
    Août 2006
    Messages
    3 969
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 3 969
    Par défaut
    Bia,
    Citation Envoyé par anis_el_madani Voir le message
    alors je veus savoir comment creer un repertoire avec TPW 1.5
    { MkDir('c:\4si'); au contaraire de la version dos , cette instruction n'est
    Pourtant MkDir existe bien dans TPW.

    Tu ne peux pas utiliser Rewrite(...) pour créer un répertoire, c'est uns fonction spécifique aux fichiers.

  3. #3
    Membre averti
    Inscrit en
    Mars 2007
    Messages
    35
    Détails du profil
    Informations forums :
    Inscription : Mars 2007
    Messages : 35
    Par défaut je suis amigos
    Salut

    Je sais que rewrite est reservée à la création des fichiers mais, si tu as bien lu le code, je veux créer un fichier dans un répertoire

    Et pour le 'mkdir', lorsque j'ajoute la biblio 'uses dos', il m'affiche ce message : 'FILE NOT FOUND (DOS.TPU)'

    Et merci d'avance !

  4. #4
    Expert confirmé

    Inscrit en
    Août 2006
    Messages
    3 969
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 3 969
    Par défaut
    Gie,

    Et si tu enlevais tout simplement cette unité dans les uses ?
    (D'un compilateur à l'autre, rien n'oblige à avoir les mêmes unités, il n'y a aucun standard à ce niveau là)

    L'aide est là pour t'aider.

    ps : encadre ton code avec les balises [*code] [*/code], sans les étoiles qui ne sont là que pour les désactiver.

  5. #5
    Responsable Pascal, Lazarus et Assembleur


    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2003
    Messages
    8 055
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2003
    Messages : 8 055
    Billets dans le blog
    2
    Par défaut
    Bonjour !

    MkDir fait partie de l'unité System.
    Par contre, si tu dois faire appel à des routines de l'unité DOS sur TPW, utilise plutôt :
    Règles du forum
    Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
    Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
    Mes tutoriels et sources Pascal

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]
    La tolérance atteindra un tel niveau que les personnes intelligentes seront interdites de toute réflexion afin de ne pas offenser les imbéciles. [Fiodor Mikhaïlovitch Dostoïevski]

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Création d'un répertoire
    Par VanessaDu67 dans le forum MATLAB
    Réponses: 14
    Dernier message: 03/07/2007, 15h02
  2. Création de sous répertoire impossible
    Par KHELOUIATI dans le forum Windows XP
    Réponses: 1
    Dernier message: 19/03/2007, 08h11
  3. Réponses: 9
    Dernier message: 10/11/2006, 15h07
  4. [applet] création d'un répertoire avec un applet
    Par TERRIBLE dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 29/12/2005, 12h24
  5. Création d'un répertoire sur un serveur
    Par Ric_ dans le forum Langage
    Réponses: 2
    Dernier message: 19/12/2005, 23h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo