Discussion :

[Abac_Angelique]

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 ?

[jeromelef2]

bonjour,
il te manque juste ceci :

Code :

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

1
2
3
4
5
6
7
 
 
  Params.WriteString(s);
 
params.seek(0, SoFromBeginning) ;
 
  ShowMessage(Params.ReadString(Length(s)));

il faut toujours penser à revenir au début du stream lorsque l'on veut faire de la lecture

[Abac_Angelique]

Merci pour votre réponse.
ça fonctionne.

[ero-sennin]

Salut,

Il faut que tu penses à revenir au début de ton stream pour le lire. De plus, tu peux simplifier ton code.
Ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.btn4Click(Sender: TObject);
var
  s: string;
  Params : TStringStream;
begin
  s := 'bonjour delphi';
  // On affecte directement la string
  Params := TStringStream.Create(s); 
  // Pointeur de lecture  remis en début de flux
  Params.seek(0, soFromBeginning) ;
  // Affichage
  ShowMessage(Params.ReadString(Length(s)));
  Params.Free; 
end;

J'ai pas testé, mais ça devrait fonctionner

EDIT : En fait, jeromelef2 avait donné la réponse