Soyez le premier à donner votre avis sur cette source.
Vue 8 126 fois - Téléchargée 727 fois
//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
merci d'avance :)
type
TMonType=record
Texte:string[64];
Numero:integer;
Vrai:boolean;
end;
var MonTruk:TMonType;
//pour enregistrer ce type
var Fic:TFileStream;
Fic := TFileStream.Create('c: est.dat', fmOpenWrite or fmCreate);
Fic.WriteBuffer(MonTruk, sizeof(MonTruk));
Fic.Free;
//pour lire ce type
var Fic:TFileStream;
Fic := TFileStream.Create('C: est.dat', fmOpenRead);
Fic.ReadBuffer(MonTruk, sizeof(MonTruk));
Fic.Free;
--------
MonTruk peut etre un tableau ou nimporte quoi qui a une taille fixe.
Il faut noter aussi que Read() et Write() déplace la position en cours d'un enregistrement.
Contrairement aux fichiers TextFile, peut importe le mode d'ouverture Reset() ou Rewrite(), le fichier est toujours ouvert en lecture/écriture.
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.