[Delphi 7] Aggiungere stringa ad una TStringStream

[mainetz]

Ciao a tutti!!!

Avrei l'urgenza di capire come posso aggiungere ad una TStringStream la stringa \n.\n (ovvero carattere di newline . carattere di newline che se non sbaglio nelle stringhe di delphi è #10#13+'.'+#10#13).

La mia TStringStream contiene già delle altri righe e questa nuova stringa va aggiunta alla fine di tutto il testo già presente.

ho provato ad utilizzare alcuni metodi quali il Write e il WriteString ma con scarsi risultati. Probabilmente non li utilizzo correttamente.

Qualcuno sa aiutarmi???

Grazie mille.

mainetz

[mainetz]

Fatto!!!

Sbagliavo una cosa semplicissima, ovvero non mi riposizionavo all'inizio della stream dopo aver scritto.

Cmq si fa così:

        bodystream.Seek(0,soFromEnd); //ci si posiziona alla fine
        bodystream.WriteString(#10#13+#10#13+'.'+#10#13); //si scrive quello che serve in questo caso NewLine+NewLine+.+NewLine
        bodyStream.Position := 0; //ci si riposiziona all'inizio della stream

Ciao a tuttti.

mainetz.