Discussion :

[souadmaa]

j'ai créé un objet Tlist pendant l'éxécution et je veut sauvegarder cette liste dans le disque dur pour que je l'utilise les données de cette dernière une autre fois.
comment l'enregistre est ce qu'il y a une propriété ou une méthode ?

[souadmaa]

j'ai crée des objets de Tshape pendant l'éxécution et je veut sauvegarder le dessin obtenu pendant l'éxécution pour éffectuer des traitements plutard?

[Sub0]

une copie d'écran suffira ?

[souadmaa]

salut
je ne veut pas enregistrer l'image mais les caractéristiques des composants placés sur la forme avec tous ces propriétés

[Sub0]

regarde du côté de WriteComponent et ReadComponent (touche F1).

[souadmaa]

salut
j'ai utilisé ce code mais il ne fonctionne pas et je n'arrive pas à détecter l'erreur
et si je le corrige comment je savoir qu'il fait correctement la conversion?

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
var
  Form1: TForm1;
  l:Tshape;
  enreg:string;
implementation
 
uses Unit2;
 
{$R *.DFM}
function ComponentToString(Component: TComponent): string;
 
var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;
 
    end;
  finally
    BinStream.Free
  end;
end;
 
function StringToComponent(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);
 
    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
enreg:=ComponentToString(shape1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
l:=StringToComponent(enreg);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
form2.show;
end;

avec ce code je pense que la sauvegarde se ne fait que dans la RAM mais moi je voudrai la faire dans le disque dur.

[edam]

Enregistré la liste (composant) ou le content?
Si c'est le contenu, quel est le type des données (record, objet, pointeur,....)??

[souadmaa]

bonjour
le type de ma liste est des Objets de Tshape;
par exemple :

Code :

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

malist.add(shape1);

alors comment enregistrer cette liste de façon permanente (càd dans le disque dur)

[defluc]

Bonjour

Je créerais un fichier texte rempli avec les éléments de la liste.