how to Save Item To stream?
Posted: Mon Mar 05, 2012 2:12 pm
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;
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;