programmation en turbo pascal

programmation en turbo pascal - Programmation

Marsh Posté le 21-07-2001 à 19:23:24    

Bonjour
 
Est-ce quelqu'un connait la procédure pour ouvrir un fichier avec turbo pascal ?
 
merci

Reply

Marsh Posté le 21-07-2001 à 19:23:24   

Reply

Marsh Posté le 21-07-2001 à 20:11:26    

sous windows :
  notepad <ton_fichier>.pas
 
sous dos:
  edit <ton_fichier>.pas
 
c'est ca que tu voulais savoir ?! :??:


---------------
www.alliancefrancophone.org ... Home is where the heart is
Reply

Marsh Posté le 21-07-2001 à 22:00:19    

Si c'est pour ouvrir un fichier texte, voilà ce que je fais en Delphi donc ça doit être + ou - la même chose en Turbo Pascal :
 
f: TextFile;
 
AssignFile(f, 'MonFichier.txt');
ReWrite(f);
Write(f, 'Texte');
CloseFile(f)

Reply

Marsh Posté le 21-07-2001 à 22:16:17    

rhooo, putain... kes que j'suis con...  :o  
 
désolé... j'avais pas compris  :o  
 
(faut dire que y'a qq jours qq'un avait demandé comment ouvrir un fichier .class :sarcastic: donc ca ma trompé ;) )


---------------
www.alliancefrancophone.org ... Home is where the heart is
Reply

Marsh Posté le 21-07-2001 à 23:20:13    

bendes a juste il me semble

Reply

Marsh Posté le 21-07-2001 à 23:37:52    

Je pense bien étant donné que le Delphi reprend les commandes du Turbo Pascal...
 
J'vais même aller plus loin dans mon développement :

Code :
  1. var
  2. f: TextFile;
  3. begin
  4. try
  5.   AssignFile(f, 'MonFichier.txt');
  6.   ReWrite(f);   // Créer un fichier en Output (si le fichier existe, il écrase les données déjà présentes)  
  7.   ReGet(f);   // Ouvre un fichier en Output/Input (écrit à la fin du fichier sans écraser les données déjà présentes)  
  8.   Write(f, 'Texte')
  9. finally
  10.   CloseFile(f)
  11. end
  12. end;


 
J'pense pas que la clause try...finally existe en Turbo Pascal (à vérifier)

Reply

Marsh Posté le 22-07-2001 à 00:21:51    

si mes souvenirs pascaliens sont bons, AssignFile (de Delphi) s'appelle Assign (en Pascal) et ReGet (de Delphi), Append (en Pascal)... mais je peux me gourer... ca a l'air d'etre ma journée ;)


---------------
www.alliancefrancophone.org ... Home is where the heart is
Reply

Marsh Posté le 23-07-2001 à 20:39:09    

Tu as bien raison JWhy.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed