🚀 go-pugleaf

but  when  i used a Tstringlist an error occured:

Sstream := tstringstream.Create('');
MainText.Lines.SaveToStream(sstream);
rtfln.Text  := sstream.datastring; ---------------------->Error Eaccess
violation
Sstream.Position := 0;
sstream.Write(pchar(rtfln.Text)^,length(rtfln.text) );
sstream.position := 0;
MainText.Lines.LoadFromStream(sstream);





"Peter Below (TeamB)" <100113.1101@compuXXserve.com> wrote in message
news:VA.0000a903.004ec87e@nomail.please...
> In article <4014d318@newsgroups.borland.com>, Yehia Ahmed wrote:
> > I read about tsreams object and how to modify the rtf code of the
richedit
> > control,
> > as this we too complicated for me, i tried to load the rtf code in a
> > memo,modify it, and then use the save to strem to return back to
richedit,
> >
> > var Reg:Tregistry;
> >     SS:TstringStream;
> >     ReStr : Tmemo;
> > begin
> > ReStr:=    tmemo.Create(form1);
> > SS := tstringstream.Create('');
> > form1.MainText.Lines.SaveToStream(ss);
> > ReStr.Text := ss.datastring;
> > ReStr.Text := stringReplace(restr.Text,'Courier New','Tahoma',[]);
> > ss.Position := 0;
> > ss.WriteString(restr.Text ) ;
> > form1.MainText.Lines.LoadFromStream(ss);
> >
> > the problem is in the last line, when executed the richedit text becomes
'',
> > although the ss.datastring contain the right code, so why is this
happening,
>
> You forgot to reset the position of ss to 0 again before the last line,
the
> WriteString puts the position to the end of the stream.
> You don't need a memo here, by the way, a simple String variable would do
as
> well. Memos are for interaction with the user, not for manipulating text
in
> code.
>
>
> --
> Peter Below (TeamB)
> Use the newsgroup archives :
> http://www.mers.com/searchsite.html
> http://www.tamaracka.com/search.htm
> http://groups.google.com
> http://www.prolix.be
>
>