Aide pour fichiers PASCAL

Aide pour fichiers PASCAL - Delphi/Pascal - Programmation

Marsh Posté le 02-06-2007 à 14:34:32    

Salut, :hello:  
 
J'ai un probleme avec un programme en pascal, plus particulierement une procedure.
On me demande d'ecrire une procedure qui ouvre un fichier  (file of [record]) ou qui le creer s'il n'existe pas.
Je n'ai pas reussi a trouver une solution faute de pouvoir trouver des explications assez precises des fonction assign, rewrite,reset.
Voila, je sollicite donc votre aide, je ne doute pas que la solution est tres simple mais la je trouve pas !
 

Reply

Marsh Posté le 02-06-2007 à 14:34:32   

Reply

Marsh Posté le 02-06-2007 à 21:18:20    

un site peut t'aider , mais je ne sais est-ce qu'il est bien pour toi ou non :
http://en.wikipedia.org/wiki/Hierarchical_File_System

Reply

Marsh Posté le 03-06-2007 à 21:15:35    

salut il faut que tu voie du coté des fichiers typés
 
t'as un petit exemple de code là:
 
http://perso.orange.fr/bardou/michel/erreurs.html
 
 

type
  TPersonne = record
    Nom: string[20];
    Prenom: string[20];
    Age: integer;
  end;
 
procedure SauverUnePersonne(NomDuFichier: string; var PersonneASauver: TPersonne);
var Fichier: file of TPersonne;
begin
  AssignFile(Fichier, NomDuFichier);
  Rewrite(Fichier);
  Writeln(Fichier, PersonneASauver);
  CloseFile(Fichier);
end;


 
 
pour créer ou ouvrir (si il existe) tu peut utiliser FileExists:
 

AssignFile(Fichier, NomDuFichier);
if FileExists (nomdufichier) then
 reset(fichier) //ouverture en lecture
 else rewrite(fichier); //ouverture (et création) en écriture


 
c'est assez schématique tout ça mais ça te fait déja quelques exemples :)

Reply

Sujets relatifs:

Leave a Replay

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