Discussion :

[souadmaa]

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.

[tourlourou]

Code :

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

f.WriteInteger(l.Count);

en tête de stream me semble assez adapté...

[souadmaa]

merci
mais la méthode writeinteger n'exite pas avec la classe Tfilestream ni avec Tstream;alors comment faire.

[lapec_and_cie]

Salut,

Essaye ça :

Code :

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

1
2
3
var s : string;
s := IntToStr(l.Items.count);
f.Write(s[0],strlength(s));

En effet tu enregistre une chaîne de caractères et en la relisant tu la caste en integer...

A plus,

Christopher

[anapurna]

salut

utilise la fonction write

Code :

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

Tfs.Write(monint,sizeof(monint));

@+ Phil
PS la methode d'avant n'est pas une bonne solution car selon la valeur de ton entier la chaine n'aura pas la meme longueur et pour le relire ca ne seras pas facile