for i:=0 to rve.RVData.ItemCount-1 do
begin
aa:=rve.RVData.GetItem(i);
xxstream.Clear;
aa.SaveRVF(xxstream,rve.RVData,i,aa.ParaNo,'xx',nil,false);
if xxstream.Size<>0 then
begin
showmessage(inttostr(xxstream.Size));
xxstream.SaveToFile('c:\aa.txt');
xxstream.Position:=0;
rve1.InsertRVFFromStream(xxstream,rve1.ItemCount);
rve1.Format;
end;
end;
how to Save Item To stream?
-
- Site Admin
- Posts: 17572
- Joined: Sat Aug 27, 2005 10:28 am
- Contact: