Comment faire un fichier avec plusieurs types ?

Bonjour,

Je souhaiterai faire un fichier avec plusieurs types. Par exemple :

type TEnteteFichier = record
 Version: integer;
 ExtensionFichier: string[10];
 f: file;
end;

type TLignefichier = record
 Nom: string[50];
 Prenom: string[100];
 Age: integer;
end;

procdure Enregistrer();
var
 Head: TEnteteFichier;
 Ligne: TLignefichier;
begin
 Head.Version := 3;
 Head.ExtensionFichier := '.abc';

 Ligne.Nom := 'Durand';
 Ligne.Prenom := 'Jean';
 Ligne.Age := 30;

 AssignFile(f, 'c:\test.dat');
 Rewrite(f);
 Write(f, Head);
 Write(f, Ligne);
 Closefile(f);
end;

mais ca ne marche pas ... quelqu'un peut me dire comment faire ?

Merci

Olivier

Salut,

Bon éclaire moi déjà sur ces deux points en rouge, je pense que ton problème vient de là

type TEnteteFichier = record
 Version: integer;
 ExtensionFichier: string[10]; // 4 aurait suffit et 100 pour un prénom ça beaucoup aussi mais bon c'est ton choix
 f: file;                                 // c'est pour quoi ça ?
end;
AssignFile(f, 'c:\test.dat');      // et ici de quel type est F ?


@+
Cirec

rhaaa ... je viens de me rendre compte qu'encore une fois j'ai fait tout le boulot :

et pourtant je dis bien au debut :

"un conseil, quand tu ecris un type enregistrement (record) n'oublis pas de faire la fonction qui vas bien avec, ici pour tes deux exemples :"



et paf je pond tout le programme ... lol
faut que j'arrete.

---

La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

---

Merci pour vos réponses, j'ai juste une question : pourquoi les fichiers générés sont si lourd ? car si je prends l'exemple de Kenavo, le fichier test.dat fait 80 ko c'est énorme pour ce qu'il y a dedans !!!

Désolé je reviens ici en fait c'est ok, c'est marrant (je suis encore débutant), je n'avais pas vu qu'en mettant Rewrite(f, 1) ou Rewrite (f), le résultat est différent, le fichier est beaucoup moins lours en mettant le 1 en paramètre. Par contre le "1" cela signifie quoi ?

Merci

Olivier

Salut,

si tu veux gagner de la place c'est ici que ça se passe:

type TEnteteFichier = record
 Version: integer;              // 4 Octets
 ExtensionFichier: string[10];  // 10 + 1 = 11 Octets 
end;

type TLignefichier = record
 Nom: string[50];               // 50 + 1 = 51 Octets
 Prenom: string[100];           // 101 Octets
 Age: integer;                  // 4 Octets;
end

Ce qui nous fait 15 Octets pour l'entête et 156 par Ligne ce qui fait 171 Octets pour un fichier avec une entête et une ligne.


type TEnteteFichier = record
 Version: integer;              // Si Version n'est pas plus grand que 255 tu peux utiliser Byte il ne prend que 1 Octet
 ExtensionFichier: string[4];  // 4 + 1 = 5 Octets 
end;

type TLignefichier = record
 Nom: string[20];               // 20 + 1 = 21 Octets avec 15 c'est déjà un chouette nom
 Prenom: string[15];            // 15 + 1 = 16 Octets avec 15 c'est déjà un chouette prénom
 Age: Byte;                     // 1 Octets; on a rarement vu quelqu'un de plus de 255 ans
end

Ce qui nous fait 6 où 9 Octets pour l'entête en fonction de Byte où Integer et 38 Octets par ligne ce qui fait un fichier de 44 à 47 Octets
Alors bien évidement sur 1 enregistrement c'est déjà remarquable tu peux t'imaginer sur une centaine

Ensuite pour l'histoire de rewrite(f, 1) où rewrite(f) fait un F1 pour comprendre que ce n'est pas ceci qui va influencer sur la taille du fichier


@+
Cirec

Et encore, Cirec tu ne tiens pas compte de l'alignement des données ! Si je je me trompe pas, les données sont alignées sur  8 octets (par défaut par le compilateur de D7) ou 4 octets (par défaut par le compilateur de D4). 
Pour prendre le minimum de place (et pour que le fichier d'enregistrements soit lisible, quelque soit l'alignement) il faut utiliser des Packed Record au lieu de simples record dans les définitions de type. Sinon, un octet (byte) occupe 8 octets, soit autant qu'un int64 ou qu'un double !

Ken@vo

---

Code, Code, Codec !

Alors la, Kenavo, j'avoue que ça dépasse un peut mes connaissances, tout ce que je sais c'est ce que j'ai testé et quand je donne une taille de 171 Octets j'obtiens 172 Octets avec le compilateur D4 et si j'examine le fichier en hexa je retrouve ce que j'avançais plus haut : 1 Octet pour un Byte, 4 Octets pour un Integer, 11 Octets pour un String[10] : 10 Octets sont présents pour la taille maximale admise pour ce String et 1 Octet est ajouté devant pour la taille réel à lire. Comme je ne trouve pas de grande différence entre mon calcule et la réalité (1 Octet que j'ai mis sur le compte de l'EOF ?)  je me dis que je ne dois pas être loin de la réalité

@+
Cirec