🚀 go-pugleaf

anyone?

"Yehia Ahmed" <yehiaeg@hotmail.com> wrote in message
news:4014d318@newsgroups.borland.com...
> hello;
>
> 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,
>
> Thanks
> Yehia
>
>