Discussion :

[Clorish]

Encore moi

J'ai un doute sur la fonction BlockWrite et les Strings.

Code :

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

1
2
 
BlockWrite(f, S, SizeOf(S));

Ce code ecrit comment dans le fichiers ?
Il me semble que en memoire un string est u ntableau de char dont S[0] contient la longeur de la chaine et S[1]..S[N] les caracteres.
Comment BlockWrite reagit dan ce cas ?

Il vaudrais pas mieux que je passe par un PChar ? ou bien que j'adapte ma lecture ? (car un BlockRead pour lire un String a besoin d'un SizeOf dont on ne connait pas a l'avance ...)

[Jean44]

Bonjour,

Si tu veux sauvegarder/lire des chaînes dans/d'un fichier, pourquoi n'utilises-tu pas le TStrings.SaveToFile / TStrings.LoadFromFile ? C'est plus simple a utiliser non ?

[Clorish]

Si tu veux sauvegarder/lire des chaînes dans/d'un fichier, pourquoi n'utilises-tu pas le TStrings.SaveToFile / TStrings.LoadFromFile ? C'est plus simple a utiliser non ?

PAr ce que je developpe un format de fichier proprietaire pour ma boite qui contient des Int, des Strings, des Float, etc .. :p

[Eric Sigoillot]

Salut !

Attention avec les strings, qui ne stokent pas leur longueur et sont en fait des pointeurs.
Si tu veux utiliser un bête BlockWrite, alors il faut utiliser des ShortString :

Code :

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

1
2
3
4
5
6
var
  S: ShortString;
  f: file;
begin
  ...
  BlockWrite(f, S, SizeOf(S));

Sinon, il faut stocker également la longueur de la chaîne :

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
 
var
  S: string;
  Len: Integer;
  f: file;
begin
  ...
  Len := Length(S);
  BlockWrite(f, Len, SizeOf(Len));
  BlockWrite(f, Pointer(S)^, Length(S));
 
  ...
 
  BlockRead(f, Len, SizeOf(Len));
  SetLength(S, Len);
  BlockRead(f, Pointer(S)^, Len);

@++

[Clorish]

ha oki ..... je vois mieux l'astuce.

Pour ce qui est de stoquer le longueur de la chaine pas de pb, je savais ca. mais ce qui me perturbait c'etait le format de la chaine (Taille+chaine indexee a partir de 1)
Bref, je m'embrouillais un peu ...
J'ai meme fini par stoqker la chaine puis les caracteres un a un :/

Merci de ces precisions ;p

[Nono40]

Pour l'enregistrement des chaines :
http://alphomega.developpez.com/persauve/