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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
   Result := '';
   for i := 1 to Stream.Size do
   begin
      Stream.Read(lChar,1);
      Result := Result + lChar;
   end;