salut
avec le code suivant on peut sauvegarder des composants en savent le nombre de ces derniers mais comment le faire en sauvegardant la taille de la liste?càd je veut sauvegarder la taille de liste dans le même fichier où je sauvegarde les composants
le 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
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
//unit1...
var
  Form1: TForm1;
  l:Tlist;
  f:Tfilestream;
implementation
 
uses Unit2;
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
l:=Tlist.create;
l.add(label1);
l.add(label2);
l.add(label3);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
f:=Tfilestream.create('n1',fmcreate);
for i:=0 to l.count-1 do
begin
f.WriteComponent(l.items[i]);
end;
f.free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;
 
end.
//unit2
var
  Form2: TForm2;
  L2:Tlist;
  a:Tlabel;
implementation
uses unit1;
{$R *.DFM}
 
procedure TForm2.Button1Click(Sender: TObject);
var j:integer;
begin
f:=Tfilestream.create('n1',fmopenread);
f.seek(0,sofrombeginning);
l2:=Tlist.create;
for j:=0 to 2 do
begin
a:=Tlabel.Create(self);
a:=Tlabel(f.readcomponent(a));
l2.add (a);
Tlabel(l2.items[j]).parent:=form2;
end;
end;
end.