Re: Merging documents

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/06/2004 18:50:13

Example if you want to add from files:

procedure AppendDoc(rv: TCustomRichView; const FileName: String);

var  Stream: TFileStream;

begin

  Stream := TFileStream.Create(FileName, fmOpenRead);

  rv.InsertRVFFromStream(Stream, ItemNo);

  Stream.Free;

end;

rv.Clear;

AppendDoc(rv, 'file1.rvf');

AppendDoc(rv, 'file2.rvf');

rv.Format;

> Yes that will do fine.