cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 2006
-
19 avril 2002 à 22:39
Smith4400
Messages postés39Date d'inscriptiondimanche 25 janvier 2009StatutMembreDernière intervention20 août 2009
-
25 mai 2009 à 19:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Smith4400
Messages postés39Date d'inscriptiondimanche 25 janvier 2009StatutMembreDernière intervention20 août 2009 25 mai 2009 à 19:20
merci c tres outils pour moi
cs_trent
Messages postés2Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention28 mars 2004 24 nov. 2003 à 12:18
question : comment faire si le Record contient un pointeur qui pointe vers le même type de Record et ainsi de suite ? donc comment retrouver les liens entre ces Record lorsqu'on lis le fichier ?
merci d'avance :)
cs_j1mb0
Messages postés13Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention27 juin 2003 27 juin 2003 à 10:29
aussi tu aurais pu procéder de cette manière:
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);
MonTruk peut etre un tableau ou nimporte quoi qui a une taille fixe.
fabiin
Messages postés329Date d'inscriptionmercredi 4 avril 2001StatutMembreDernière intervention 8 décembre 20096 20 avril 2002 à 12:32
arf, ok, donc en faite g pas besoin de seek, je croyai ke y'avai ke write ki déplacai la position
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 19 avril 2002 à 22:39
Heu, Fabiin il ya une petite erreur : Write n'écrit pas à la fin du fichier mais à la position en cours ! Il est tout à fait possible de faire un Seek avant un write pour mettre à jour un enregistrement. Pour ensuite ajouter des enregistrement il faut faire un Seek(FileSize(Fichier)) pour se placer en fin de fichier.
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.
25 mai 2009 à 19:20
24 nov. 2003 à 12:18
merci d'avance :)
27 juin 2003 à 10:29
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.
20 avril 2002 à 12:32
19 avril 2002 à 22:39
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.