Hi, Bruno!
it's the same with TRichEdit also. I tried with your suggestion, but on my suprise it doesn't work:
procedure TForm1.Button1Click(Sender: TObject);
var MemoryStream: TMemoryStream;
SourceString:string;
begin
SourceString := AdvRichEditor1.ContentAsRTF;
MemoryStream := TMemoryStream.Create;
try
MemoryStream := TMemoryStream.Create;
MemoryStream.Clear;
MemoryStream.Write(PChar(SourceString)^, Length(SourceString));
MemoryStream.Position := 0;
RichEdit1.PlainText:=False;
RichEdit1.Lines.LoadFromStream(MemoryStream);
finally
MemoryStream.Free;
end;
end;
What I'm I doing wrong?
Kind regards,
Bostjan