problème avec les streams

bonjour,

est-ce que quelqu'un saurait m'expliquer pourquoi ce code me donne le bon résultat :

Code:

---

1 2 3 4

strmInput := TMemoryStream.Create; strmInput.Write( 'MonTexte', 7); strmInput.Position := 0; strmInput.SaveToFile( 'c:\Test.txt');

---

et pas celui-ci :

Code:

---

1 2 3 4 5

strmInput := TMemoryStream.Create; s := 'MonTexte'; strmInput.Write( s, 7); strmInput.Position := 0; strmInput.SaveToFile( 'c:\Test.txt');

---

dans ce cas, j'obtiens des caractères bizarres à la place de 'MonTexte' dans le fichier créé.
Et bien sûr c'est le deuxième cas qui m'interesse :wink:

je précise que le but final n'est pas de stocker le stream dans un fichier, j'ai juste fait ceci car je n'obtiens pas le résultat final escompté et je pense que cela vient de là.

Merci à tous,
Dany

bon, j'ai trouvé.
Si ça peut interesser quelqu'un je propose la réponse :

Code:

---

1 2 3 4 5

strmInput := TMemoryStream.Create; s := 'MonTexte'; strmInput.Write( Pointer( s)^, 7); strmInput.Position := 0; strmInput.SaveToFile( 'c:\Test.txt');

---

Evidement, la méthode n'attend pas une chaine de caractères, mais à force de fixer les lignes on voit plus rien :D

@++
Dany

bonjour,

ou plus simplement

Code:

---

1 2 3 4 5

strmInput := TMemoryStream.Create; s := 'MonTexte'; strmInput.Write( s[1], 7); strmInput.Position := 0; strmInput.SaveToFile( 'c:\Test.txt');

---

bonjour,

exact, merci.

@++
Dany