Bonjour,

Je souhaite copier une chaine de caractère dans un stream pour pouvoir faire un traitement dessus.

Je n'arrive même pas à recopier et lire une chaine simple.
Le retour est vide.

Voici le code :
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
procedure TForm1.btn4Click(Sender: TObject);
var
  s: string;
  Params : TStringStream;
begin
  s := 'bonjour delphi';
 
  Params := TStringStream.Create('');
 
  Params.WriteString(s);
 
  ShowMessage(Params.ReadString(Length(s)));
 
  Params.Free;
 
end;
Pourriez vous m'aider ?