Copy RTF in Delphi

[kneff]

Hi all; I'm trying to copy the contents of a Rich Text Edit into VPE keeping the existing formatting. I have tried to copy to a pchar buffer and a normal copy and just get the text in VPE with no formatting.
Any easy way to accomplish this? (I'm not a Delphi wizard!)
Thanks for any help.
Keith

[IDEAL Software Support]

I found the following code immediately by using Google:

Code: Select all

function GetRTF(RE: TRichedit): string;
var
   strStream: TStringStream;
begin
   strStream := TStringStream.Create('') ;
   try
     RE.PlainText := False;
     RE.Lines.SaveToStream(strStream) ;
     Result := strStream.DataString;
   finally
     strStream.Free
   end;
end;

You can then create a Rich Text object in VPE for example with:

Code: Select all

str := GetRTF(MyRichEdit);
Vpe.WriteRTF(1, 1, 19, VFREE, str);

Regards
Thorsten Radde
IDEAL Software GmbH

[kneff]

I'll give it a try.

[kneff]

OK now I'm buying VPE, thanks