Load multiple pieces of data into TRichView/TRichViewEdit

[jota]

Hi.
How can I add, sequentially, a series of text values and RVF values, in a richview or richviewedit, without losing the previous piece.
Small example?
Thanks in advance.

[Sergey Tkachenko]

Code: Select all

procedure AddDoc(Stream: TStream; rv: TCustomRichView); 
var ItemCount: Integer; 
begin 
  ItemCount := rv.ItemCount; 
  Stream.Position := 0; 
  rv.InsertRVFFromStream(Stream, rv.ItemCount); 
end; 

rv.Clear; 
rv.DeleteUnusedStyles(True, True, True); 
// streams contain RVF documents
AddDoc(Stream1, rv); 
AddDoc(Stream2, rv); 
AddDoc(Stream3, rv);
rv.Format;

To add from files, use TFileStream