[TFileStream] Problème de lecture de string

Version imprimable

25/06/2004, 13h18
Pedro

[TFileStream] Problème de lecture de string
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 :wink: )...
En écriture, grâce à F1, j'ai trouvé une aide pour écrire une string :
Code:

1 2 t.Write(PChar(s)^,length(s));
Ca, ok, ça marche...
Par contre, impossible de lire...
J'essaie ça :
Code:

1 2 3 4 5 var s:string; begin t.Read(t,Longueur); end;
Et, evidemment, une exception m'envoie allègrement ballader... :evil:

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

Salut,

Tu peux aussi utliser l'index :
Code:

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+

:idea: 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:

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;

25/06/2004, 14h23
fs999

Salut,

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

A+
25/06/2004, 14h30
sjrd
Ben non, c'est pour parer ce problème qu'il y a ceci à la fin de WriteStrToStream :
Code:

1 2 C := #0; Stream.Write(C, 1);
25/06/2004, 14h35
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+
28/06/2004, 13h06
Pedro

Citation:

Envoyé par fs999

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... :oops: 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é!! :oops:
Donc je vais essayer avec ta méthode et celle de sjrd réunies!!

Merci à vous deux! :D