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