Discussion :

[Pedro]

Salut

Suivant les conseils avisés des nombreux posts que j'ai pu lire, je me suis mis aux streams...
Et, c'est donc en toute logique, que j'ouvre maintenant mes fichiers avec un TFileStream... 8)

Seulement voila, j'ai un problème avec les strings (les chaines de caractères )...
En écriture, grâce à F1, j'ai trouvé une aide pour écrire une string :

Code :

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

1
2
 
  t.Write(PChar(s)^,length(s));

Ca, ok, ça marche...
Par contre, impossible de lire...
J'essaie ça :

Code :

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

1
2
3
4
5
 
var s:string;
begin
    t.Read(t,Longueur);
end;

Et, evidemment, une exception m'envoie allègrement ballader...

J'arrive à lire en utilisant des array of char (avec des SetLength partout) mais après j'ai des problèmes pour convertir ces array en string...

Quelqu'un peut-il m'aider?

Merci d'avance

[fs999]

Salut,

Tu peux aussi utliser l'index :

Code :

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

1
2
3
4
5
6
7
8
 
pour écrire:
  t.Write(s[1],length(s)); 
 
..
pour lire :
  SetLength(s, Longueur);
  t.Read(s[1], Longueur);

A+

[sjrd]

Moi j'ai créé pour ça une méthode d'écriture et une de lecture qui écrit/lit une string au format AZT (À Zéro Terminal).

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
function ReadStrFromStream(Stream : TStream) : string;
var C : Char;
begin
  Result := '';
  repeat
    Stream.Read(C, 1);
    if C <> #0 then Result := Result+C;
  until C = #0;
end;
 
procedure WriteStrToStream(Stream : TStream; Str : string);
var I : integer;
    C : Char;
begin
  for I := 1 to Length(Str) do
  begin
    C := Str[I];
    Stream.Write(C, 1);
  end;
  C := #0;
  Stream.Write(C, 1);
end;

[fs999]

Salut,

Pour cela il faut qu'il y ait toujours un caractère #0 à la fin de la chaine.

A+

[sjrd]

Ben non, c'est pour parer ce problème qu'il y a ceci à la fin de WriteStrToStream :

Code :

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

1
2
C := #0;
Stream.Write(C, 1);

[fs999]

Salut,

C'est bien ce que je dis...

C'est pas sûr qu'il veuille lire ses propres fichiers uniquement, comme c'est pas sûr qu'il veuille lire toute la chaîne (c'est pour ça : Longueur)...

A+

[Pedro]

Salut,
C'est pas sûr qu'il veuille lire ses propres fichiers uniquement, comme c'est pas sûr qu'il veuille lire toute la chaîne (c'est pour ça : Longueur)...

Non effectivement... Le longueur est une valeur integer juste avant la chaîne de caracactères qui représente la longueur de la chaîne qui suit dans le fichier... C'est pas top... Surtout qu'effectivement, je lis systématiquement les chaines entierièrement...
Mais ta méthode avec #0 à la fin est interessante, je n'y avais pas pensé!!
Donc je vais essayer avec ta méthode et celle de sjrd réunies!!

Merci à vous deux!