Stocker un record dans un fichier

**ushu** · 13/12/2002, 11h37

Bonjour à tous,

Je recherche en vain à écrire dans un fichier text (ou autre, vu que c'est moi qui créais le fichier), une variable de type record avec le type suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
type MonType = record
  Couleur1 : TColor;
  Couleur2 : TColor;
end;

Si quelqu'un a une idée, je le remercie d'avance !

HT · 13/12/2002, 11h45

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
type MonType = record
        Couleur1 : TColor;
        couleur2  : TColor;
        end;
 
type MonFichier = file of MonType;
 
 
Var type : MonType;
      fichier : MonFichier;
 
 
[code]
Il ne te reste plus qu'à décider d'un nom de fichier, l'assigner à la variable "fichier", puis à écrire toutes les procédures d'E/S , d'ouverture et de fermeture de fichier. C'est un peu fastidieux mais pas difficile.
Bonne chance

**ushu** · 13/12/2002, 11h59

Jusque là ça va, mais pour les fonctions à utiliser pour écrire dans le fichier, car toutes les fonctions d'écriture de fichier utilisent des String ou des TComponent (avec TFileStream)

Pas moyen de pouvoir mettre en paramètre un type record !

HT · 13/12/2002, 13h48

Exemple du code que j'utilise pour travailler sur un fichier avec des variables structurées.

Je crée tout ça dans une unité indépendante, par ex. FICHIERS.pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
 
interface
 
const
NomFichier:=shorstring='Valeurs.dat';
 
type
TCouleur = record
        chpCouleur1,
        chpCouleur2:TColor;
end;
 
TFichierCouleur = file of TCouleur;
 
var
     fiche:TCouleur;
     UnFichier:TFichierCouleur;
 
// ici je déclare toutes les procédures et fonctions que j'utiliserai dans
//le programme
 
          IMPLEMENTATION
 
procedure LireCouleur(enr:cardinal;var UnEnreg:TCouleur);
begin
       seek(UnFichier,enr);
       read(UnFichier,UnEnreg);
end;
 
procedure EcrireCouleur(enr:cardinal;UnEnreg:TCouleur);
begin
       seek(UnFichier,enr);
       write(UnFichier,UnEnreg);
end;
 
procedure CreerFichier;
begin
       rewrite(UnFichier);
end;
 
procedure OuvrirFichier;
var err:integer;
begin
       {$I-} reset(UnFichier) {$I+}
       err:=IOResult; // je sais mal me servir de la gestion des exceptions
       case err of
                    0:exit; // le fichier est ouvert sans problème
                    2:CreerFichier; // s'il n'existe pas, il est créé
       end;
end;
 
procedure FermerFichier;
begin
       closeFile(UnFichier)
end;
 
procedure Assignation;
begin
       assignFile(UnFichier,NomFichier)
end;
 
        initialisation
Assignation
 
end.

C'est clair ?
A ta dispo pour plus de détails.
Je travaille toujours sur des bases de données que je crée et gère moi-même, car je ne sais pas le faire avec les composants BD. Vieille habitude de Pascal. Ca marche bien, même si c'est pas très élégant comme programmation.