Discussion :

[jmdeffet]

Bonjour à tous :

J'utilise le code suivant comme exemple, pour sauvegarder :

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
 
var fich:TFileStream;
     signet:TStringList;
     co:integer;
 
procedure Save;
begin
    fich:=TFileStream.Create('essai',fmcreate);
    signet.savetostream(fich);
    fich.write(co,sizeof(co));
    fich.free;
end;
 
 
procedure Load;
begin
    fich:=TFileStream.Create('essai',fmOpenRead);
    signet.LoadFromStream(fich);
    fich.read(co,sizeof(co));
    fich.free;
end;

Et la variable CO contient la même valeur qu'avant l'instruction read (aléatoire)

Si j'inverse comme ceci dans 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
 
var fich:TFileStream;
     signet:TStringList;
     co:integer;
 
procedure Save;
begin
    fich:=TFileStream.Create('essai',fmcreate);
    fich.write(co,sizeof(co));
    signet.savetostream(fich);
    fich.free;
end;
 
 
procedure Load;
begin
    fich:=TFileStream.Create('essai',fmOpenRead);
    fich.read(co,sizeof(co));
    signet.LoadFromStream(fich);
    fich.free;
end;

Alors CO contient bien la valeur sauvegardée, pourquoi ?

Où est mon erreur ? [/code]

[sjrd]

Il n'y a pas d'erreur, juste une mauvaise compréhension de l'effet de LoadFromStream. Cette méthode considère que tout ce qui se trouve après la position du flux est la liste à charger.
La solution est d'écrire toi-même le nombre de chaînes puis chacune des chaînes dans le flux et de faire la même chose à la lecture.

[jmdeffet]

Merci pour cette précision importante!

Un salut amical de tournai!

[sjrd]

Un salut amical de tournai!

Le bonjour de Frasnes

[jmdeffet]

J'ai trouvé une méthode très efficace pour réaliser cela :

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
 
procedure SaveSignet;
var l:integer;
    s:string;
begin
  with CurrentPrj,CurrentPrjFile do
    begin
     s:=Signet.Text;
     l:=Length(s);
     write(l,sizeof(l));
     if l<>0 then write(s[1],l);
    end;
end;
 
procedure LoadSignet;
var l:integer;
    s:string;
begin
  with CurrentPrj,CurrentPrjFile do
    begin
      s:='';
      read(l,sizeof(l));
      if l<>0 then
        begin
         setlength(s,l);
         read(s[1],l);
        end;
      Signet.Text:=s;
    end;
end;

La propriété TEXT fait ça toute seule.