SaveToFile d'une liste

**qi130** · 26/04/2006, 13h37

Bonjour à tous.

Dans 1 appli, je créé dynamiquement des pseudo-panel mémorisés dans une liste:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type TMonPnl=class(TPanel);            
Type
  TEntite=record
    Id:Integer;
    Carre:TMonPnl;
    Ancetre,Fils,Aine,Cadet:Integer;
  end;
  PTEntite = ^TEntite;
  TEntiteList = class(TObject)
  private
etc...

ces pseudo-panels sont affichés sur un TPanel, et comme ils sont déplaçables, j'ai besoin de les différencier lors du DragDrop, d'où l'utilisation de TMonPnl.

Mon souci est de mémoriser cette liste dans un fichier...et bien sûr, chaque "carre" doit conserver ses propriétés.

J'ai jeté un oeil là : http://nono40.developpez.com/sources/source0064/

Est-ce applicable compte-tenu du fait que LE composant (carre=TMonPnl) est enfoui dans chaque item de la liste ?

Sinon, comment faire ?

**Tardiff Jean-François** · 26/04/2006, 14h41

Bonjour,

Personellment j'utiliserait un TXMLDocument.

1° Poser un tXMldocument sur votre form
2°

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
 
// Vider Xml document
MyXmlDocument.Active := False;
MyXmlDocument.fileName := '';
MyXmlDocument.Xml.Clear;
 
// Créer le Noeud a partire duquelle la sauvegarde vas etre faite
// GlobalNode est un IXMLNODE
MyXmlDocument.Active := true;
globalnode          := XMLDocument.CreateNode('NomDuNoeudDeBase', ntElement);
XML.DocumentElement := globalnode;
 
// Boucle pour suavegarder tous les panel
For I = 0 To NombreDePanel do begin
  MonPanel := .....
 
// sauvegarde pour un panel
// 1° noeud du panel
Panelnode := Globalnode.AddChild('NomPanel');
// 2° Valeurs a sauvegarder
node :=  Panelnode.AddChild('Valeur1');
Node.NodeValue := Valeur1;
node :=  Panelnode.AddChild('Valeur2');
Node.NodeValue := Valeur2;
etc.
 
end;
 
  MyXmlDocument.SaveTofile(.....);
  MyXmlDocument.Acive := False;

La sauvegarde et sous la form XML, vous pouvez donc le consulter et le modifier avec un editeur XML ou un editeur de fichier text.

**qi130** · 26/04/2006, 15h30

Tu me proposes de travailler avec les éléments individuels alors que tout mon prog s'appuie sur la liste

. Ca fait beaucoup de modifs ça...

**Merlin** · 26/04/2006, 15h46

Pour sauvegarder la liste il faudrait que tu utilises des classes sérialisables.
Il faut donc que chaque élément descendent de TPersistent pour commencer.
Pour la liste il faut utiliser un descendant de TCollection, chaque item descendant de TCollectionItem. Dans ce cas soit ces derniers encapsuble la classe descendante de TPersistent, soit tu codes directement dans le TItemCollection.

Ensuite un Read / WriteCompotentResFile par exemple permet d'écrire un flux objet sur disque et de le recharger.

**denokan** · 26/04/2006, 16h03

ne peux-tu pas faire un fichier File of TEntite tout simplement ?

**qi130** · 26/04/2006, 16h32

C'était ma première orientation, mais je perds tout ce qui concerne "carre"...
Ou alors j'ai une M**** dans mon code:

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
 
function TEntiteList.SaveToFile(nomFichier:string):Boolean;
var recEntite:TEntite;
    fileEntite:file of TEntite;
    i:Integer;
begin
     result:=True;
     AssignFile(fileEntite,NomFichier);
     {$i-}
     Rewrite(fileEntite);
     {$i+}
     if IoResult<>0 then begin
        result:=False;
        exit;
     end;
     { boucle d'écriture }
     for i:=0 to FList.Count-1 do begin
        recEntite:=GetItem(i) ;
        Write(fileEntite,recEntite);
     end;
     CloseFile(fileEntite);
end;

avec

Code :

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

1
2
3
4
5
 
function TEntiteList.GetItem(Index: Integer): TEntite;
begin
  result := PTEntite(FList[Index])^;
end;

alors

...

(ce code marche parfaitement si "carre" est complètement décrit (mais alors ce n'est plus un pseudo-panel et faut que je me paie toutes les props et méthodes)

**denokan** · 26/04/2006, 16h56

que représente carre ? le parent ? si c'est le cas ne peux-tu pas simplement ecrire son nom en string ?

**qi130** · 26/04/2006, 17h15

Cf mon 1er post, carre est (du moins dans mon esprit) un TPanel-like, aucun ajout/modif de propriété/méthode, j'ai juste besoin d'un nom de classe qui ne soit pas TPanel.
Pour le reste, je le manipule comme un TPanel, en profitant des props et méthodes de cette classe.

**denokan** · 26/04/2006, 18h05

heu... si tu ne modifie pas la classe TPanel je ne vois pas bien pourquoi tu la dérives ? pourquoi un nom de classe différent ?

**LadyWasky** · 26/04/2006, 18h14

Salut qi30,

Pour ton problème je te suggères ceci de passer par les TStream, tu vas voir, ça va marcher.

Si tu peux attendre ce soir je te poste du code, je dois aller chercher les enfants à l'école

Sinon, voici en gros l'algorithme (attention, ça ne compile pas, c'est bien un algo !):

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
function TEntiteList.SaveToFile(nomFichier:string):Boolean; 
var i:integer;
     UnStream:TFIleStream;
     Panel:TMonPnl;
     PanelExiste:boolean;
     recEntite:TEntite;
begin
   UnStream:=TFIleStream.create(nomFichier,Ecriture);
   UnStream.Write(count,sizeof(integer));
   for i:=0 to count-1 do
   begin
      recEntite:=GetItem(i);
      Panel:=recEntite.Carre;
      PanelExiste:=(Panel<>nil);
      UnStream.Write(PanelExiste,sizeof(boolean));
      if PanelExiste then
      UnStream.SaveComponent(Panel);
      recEntite.Carre:=nil;
      UnStream.Write(recEntite,sizeof(TEntite));
   end;
   UnStream.Free;
end;
 
function TEntiteList.LoadFromFile(nomFichier:string):Boolean; 
var i,n:integer;
     UnStream:TFIleStream;
     Panel:TMonPnl;
     PanelExiste:boolean;
     recEntite:TEntite;
 
begin
   UnStream:=TFIleStream.create(nomFichier,Lecture);
   UnStream.Read(n,sizeof(n));
   for i:=0 to n-1 do
   begin
      Panel:=recEntite.Carre;
      PanelExiste:=(Panel<>nil);
      UnStream.Read(PanelExiste,sizeof(boolean));
      if PanelExiste then  UnStream.ReadComponent(Panel);      
      UnStream.Read(recEntite,sizeof(TEntite));
      if PanelExiste then recEntite.Carre:=Panel;
     add(recEntite);
   end;
   UnStream.Free;
end;

Si avec ça tu ne t'en sort pas avant que je te livre la version finale...
Celà dit ce serrait quand même bien de connaitre la strucutre de TMonPnl

**qi130** · 26/04/2006, 19h10

Je suis toujours preneur d'une solution cousue-main

**qi130** · 26/04/2006, 21h49

Mais, je ne suis qu'un grossier bricoleur

.

Et c'est un doux euphémisme pour signaler l'approche de mon seuil d'incompétence quand je commence à créer mes propres classes; je l'avoue sans honte

.

Je suis de la génération TP, autant dire que je ne suis pas né avec les classes; même si j'en perçois tout le bien-fondé et que je trouve cela merveilleux à utiliser... au travers de la VCL.

Après j'avance en terrain inconnu, avec toute l'aide et le temps que les forumeurs veulent bien m'accorder...et je les en remercie.

Je ne disconviens pas du fait qu'il faille utiliser

les classes sérialisables.
Il faut donc que chaque élément descendent de TPersistent pour commencer.
Pour la liste il faut utiliser un descendant de TCollection, chaque item descendant de TCollectionItem

Et que tout ceci soit LA solution, mais c'est clairement hors de ma portée immédiate.

Puisque tu as l'air de maîtriser ce genre de problématique, peut-être pourrais-tu rédiger un tutoriel sur le sujet ? (on dira que c'est un philtre pour devenir pro !)

Je crois qu'il serait utile à beaucoup de bricoleurs

.

**anapurna** · 26/04/2006, 22h32

Salut

comme te le fait remarquer merlin le meilleur moyen est de passer par les collection

regarde ce tuto
http://sjrd.developpez.com/delphi/de...ge=collections