Description


Adding the contents of an RTF stream to a document.



function AppendRTFFromStream (Stream: TStream): Boolean

 Parameter

 Description

 Stream

 The stream that contains the RTF document.



Example


   procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
   var
       RtfFile: TFileStream;
   begin
       RtfFile := TFileStream.Create('d:\document.rtf', fmOpenRead);
       try
           Form1.RichEdit1.AppendRTFFromStream(RtfFile);
       finally
           RtfFile.Free;
       end;
   end;