Insert in a single file the contents of varios richviewedits
Posted: Fri Sep 08, 2006 1:21 am
How can i assign the contents of varios richviewedits into a single file ?
If as a single document, you need to add documents from all these richviewedits in one richview and save it.
Code: Select all
procedure AddDoc(source, dest: TCustomRichView);
var Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
source.SaveRVFToStream(Stream, False);
Stream.Position := 0;
dest.InsertRVFFromStream(Stream, dest.ItemCount);
Stream.Free;
end;
...
RichView1.Clear;
RichView1.DeleteUnusedStyles(True, True, True);
AddDoc(SourceRV1, RichView1);
AddDoc(SourceRV2, RichView1);
AddDoc(SourceRV3, RichView1);
RichView1.SaveRVF('All.rvf')