Discussion :

[Davjack]

J'ai déjà posté ce message à la suite d'un sujet mais comme c'est un peu hors sujet, je me permet de créer un nouveau sujet dédié.

J'essaye d'écrire une classe dans un fichier mais je n'arrive pas à la relire après coup.

Voici ce que je fais :

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
Type
  CFichierIndexClient = class
                          numeroLigneClient : integer;
                          numeroClient : string;
                          constructor init();
                          constructor init(varnumeroLigneClient : integer; varnumeroClient : string);
                          procedure store();
                          function positionClient(numClient : string) : integer;
                        end;
  TypeFichierIndexClient = file of CFichierIndexClient;
  .
  .
  .
Var
  fichierIndex : TypeFichierIndexClient;
Begin
  assign(fichierIndex,'cheminFichier');
 
  rewrite(fichierIndex);
 
  write(fichierIndex,self);
  close(fichierIndex);

Le fichier se crée mais je n'arrive pas à en extraire les données....
J'ai l'impression que ça me stocke uniquement l'adresse mémoire de la classe mais je n'en suis pas sûr....
Quelqu'un pourrait m'éclairer et éventuellement me donner une solution possible (je pense a une conversion en enregistrement mais si on peut rester en objet, je préférerais)

Merci d'avance pour votre aide

[droggo]

Jao,

Oui, tu écris

Code :

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

write(fichierIndex,self);

self n'est qu'une adresse.

Il n'y a rien de prévu en standard pour écrire toute une classe dans un fichier.

D'ailleurs, les seules données intéressantes à stocker sont les ... données de ta classe.

Plusieurs solutions, dans l'ordre de mes préférences, à condition qu'il y ait peu d'instances de la classe:

- tu stockes en fichier texte, genre

Code :

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

1
2
3
4
 
{ f est le fichier de type text }
writeln(f,numeroLigneClient);
writeln(f,numeroClient);

et pour relire, tu penses à relire dans le bon ordre.

- tu transformes les données de ta classe en un enregistrement

Code :

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

1
2
3
4
5
6
7
8
type mesdonnees = record
  numeroLigneClient : integer;
  numeroClient : string;
end;
 
....
{ les données de ta classe devenant }
  datas :  mesdonnees;

et tu stockes le tout dans un fichier typé mesdonnees.

Au passage, je ne comprends pas l'utilisation d'une chaine pour stocker numeroClient, c'est, a priori, une valeur qui devrait être un entier.

[Davjack]

C'est bien ce que je pensais, on ne peut pas vraiment stocker d'objet.
Je vais donc opter pour l'enregistrement (j'aime bien et je trouve plus propre )

Au passage, je ne comprends pas l'utilisation d'une chaine pour stocker numeroClient, c'est, a priori, une valeur qui devrait être un entier.

En fait, le "numéro" est une sorte de code que l'on a appeler numero

Merci de m'avoir éclairé