Enregistrement et lecture d'un type record

Télécharger le projet
Commenter

Description

Comment enregistrer(et lire)un type record dans un fichier

Source / Exemple : 


//le type:
//les string est les tableaux doivent avoir une longueur précise
type
TMonType=record
  Texte:string[64];
  Numero:integer;
  Vrai:boolean;
end;
var MonTruk:TMonType;

//pour enregistrer ce type
var Fichier:file of TMonType;

AssignFile(Fichier,'test.dat');
rewrite(Fichier);
write(Fichier,MonTruk);
closefile(Fichier);

//pour lire ce type
var Fichier:file of TMonType;

AssignFile(Fichier,'test.dat');
reset(Fichier);
read(Fichier,MonTruk);
closefile(Fichier);

//-------------------------------
//petit plus
//si vous utilisez un tableau de ce type :
MonTruk:array[0..10] of TMonType;
//il faut evidemment faire une boucle pour enregistrer et lire
//pour lire il faudra ajouter
seek(Fichier,Nombre); //nombre étant le numéro de l'enregistrement
//seek permet de ce déplacer dans le fichier
//write ,écrit automatiquement a la fin, mais read li la ou l'on est dans le fichier

Conclusion :


ca peu servir pour enregistrer facilement des options

voir le zip pour l'exemple
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fabiin)