Stream & string

Bonjour à tous. Juste un petit conseil.

Pour récuprer du texte à partir d'un TStream, j'ai fait comme cela. Mais j'ai l'impression qu'il y aurait moyen de faire mieux.

Code:

---

1 2 3 4 5 6 7

Result := ''; for i := 1 to Stream.Size do begin Stream.Read(lChar,1); Result := Result + lChar; end;

---

Cela dépend ce que tu veux faire mais tu peux utiliser les tstringlist: dans ce cas tu as une ligne par entrée de tstringlist.

Code:

---

slist.LoadFromStream(stream);

---

Merci pour ta réponse.

En allant regarder le source du TString, un meilleur moyen est

Code:

---

1 2	SetString(Result,nil,Stream.Size); Stream.Read(Pointer(Result)^,Stream.Size);

---

Par contre je ne vois pas quelle est la différence entre Pointer(Result)^ et Result.

Result retourne un ensemble de char alors que pointer(Result)^ retourne un pointeur vers le 1er byte en mémoire de la chaine.