Discussion :

[Naruto]

Bonjour,

je suis novice en programmation delphi et j'aurais besoin des lumières de quelques programmeurs certifiés.
Le problème est le suivant : j'aimerais pouvoir sauvegarder dans un fichier un tableau d'objets et ensuite pouvoir le recharger.
J'ai tenté d'utiliser un "file of" mais je me retrouve avec une erreur me disant que ce n'est pas possible, mon objet contenant des paramètres de type "string".
Apparemment il faudrait que j'utilise des chaînes de caractères courtes, mias je ne sais pas comment procéder.
Ou bien y a-t-il une autre manière de procéder pour ce type de manipulation?

voilà la définition de mon objet et du tableau d'objets :

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
TYPE
    Tparcelle = object
        PRIVATE
		identifiant : integer;
		nom_proprio : string;
		prenom_proprio : string;
		adresse :string;
		code_postal : longint;
		ville : string;
		x1 : real;
		y1 : real;
		x2 : real;
		y2 : real;
		x3 : real;
		y3 : real;
		x4 : real;
		y4 : real;
	PUBLIC
		{constructeur}
		Constructor saisie_parcelle(pidentifiant : integer; pnom_proprio : string; pprenom_proprio : string; padresse : string ; pcode_postal : word; pville : string; px1 : real; py1 : real; px2 : real; py2 : real; px3 : real; py3 : real; px4 : real; py4 : real);
 
                {destructeur}
                Destructor destruct; virtual;
 
		{accesseur}
 
		Function cherche_identifiant : integer;
		Function cherche_nom_proprio : string;
		Function cherche_prenom_proprio : string;
		Function cherche_adresse : string;
		Function cherche_code_postal : word;
		Function cherche_ville : string;
		Function cherche_x1 : real;
		Function cherche_y1 : real;
		Function cherche_x2 : real;
		Function cherche_y2 : real;
		Function cherche_x3 : real;
		Function cherche_y3 : real;
		Function cherche_x4 : real;
		Function cherche_y4 : real;
 
	end;
 
    Tcadastre = array[1..20] of Tparcelle;

En vous remerciant d'avance...

[Hakim]

Bonjour
je pense que c'est la même chose qu'avec les Records,
Remplace String par String[X]
X = une valeur qui convient pour ta varianle
style : String[30]
j'espère que c'est ça

[Pierre Castelain]

Attention, les objets ne sont pas des records (et vice-versa).
Il existe deux approches pour ce genre de problématique :
- Utiliser du code ou des systèmes existants comme les méthodes ReadComponent et WriteComponent. Celles-ci obligent le développeur à modifier ses classes pour les faire "coller" au principe de fonctionnement prédéfini.
- Coder son propre mécanisme de sauvegarde. Le plus classique étant de stocker et relire les valeurs des attributs des objets dans des flux (stream), des fichiers .ini, .xml, etc.
En voici un exemple simplifié avec un flux :

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
67
68
69
70
71
72
73
74
75
76
77
78
 
interface
 
  TParcelle = class
  private
    identifiant : integer;
    nom_proprio : string;
    x1 : real;
  public
    procedure WriteToStream(AStream: TStream);
    procedure ReadFromStream(AStream: TStream);
  end;
 
implementation
 
{ TParcelle }
 
procedure TParcelle.WriteToStream(AStream: TStream);
var
  sz: Integer;
begin
  // On peut écrire les entiers directement puisque leur taille est fixe
  AStream.Write(identifiant, SizeOf(identifiant));
 
  // Pour les chaînes, il vaut mieux stocker leur taille
  sz:= Length(nom_proprio);
  AStream.Write(sz, SizeOf(sz));
  // On passe le premier caractère et le reste suit tout seul
  AStream.Write(nom_proprio[1], sz);
 
  // Pareil que pour les entiers
  AStream.Write(x1, SizeOf(x1));
end;
 
procedure TParcelle.ReadFromStream(AStream: TStream);
var
  sz: Integer;
begin
  // On peut lire les entiers directement puisque leur taille est fixe
  AStream.Read(identifiant, SizeOf(identifiant));
 
  // Pour les chaînes, il faut commencer par lire leur taille
  AStream.read(sz, SizeOf(sz));
  SetLength(nom_proprio, sz);
  AStream.Read(nom_proprio[1], sz);
 
  // Pareil que pour les entiers
  AStream.Read(x1, SizeOf(x1));
end;
 
 
procedure TestUtilisation;
var
  fs: TFileSTream;
  objet: TParcelle;
begin
  // Sauvegarde
  objet:= TParcelle.Create;
  objet.nom_proprio:= 'Pierre Castelain';
  fs:= TFileStream.Create('C:\test.bin', fmCreate);
  try
    objet.WriteToStream(fs);
  finally
    fs.Free;
  end;
  objet.Free;
 
  // Lecture
  objet:= TParcelle.Create;
  fs:= TFileStream.Create('C:\test.bin', fmOpenRead);
  try
    objet.ReadFromStream(fs);
  finally
    fs.Free;
  end;
  MessageBox(0, PChar(objet.nom_proprio), 'Proprio', 0);
  objet.Free;
end;

[Naruto]

Merci beaucoup tous les deux pour vos avis, j'ai finalement opté pour une sauvegarde de mes données sous fichier texte. C'est plutôt simple à manipuler... et ça me permet d'enrichir mon programme d'une certaine manière...
Quand j'aurais plus de temps je me pencherai sur les streams que je ne connais pas du tout du tout!

Merci encore!!!!