多个流合并并保存

75557032

这几天搞配置保存，我的配置是好几个内存表，每个内存表可以单独保存，但是多个就不方便了，用zip吧，安装控件不说，还得搞一堆的临时目录，就自己写了两个函数（MergerFile，FindFileFormMergerStream）支持，使用方式如下：
var
  LV1,LV2:TStream;
  LList:TStrings;
begin
  LV1:=TMemoryStream.Create;
  LV2:=TMemoryStream.Create;
  LList:=TStringList.Create;
  VirtualTable1.SaveToStream(LV1);
  VirtualTable2.SaveToStream(LV2);
  LList.AddObject('s1',LV1);
  LList.AddObject('s2',LV2);
  MergerFile(LList,'C:\sss.hh');
  LList.Free;
  LV2.Free;
  LV1.Free;
end;


var
  LFile,LV1,LV2:TStream;
begin
  LFile:=TFileStream.Create('C:\sss.hh',fmOpenRead);
  LV1:=TMemoryStream.Create;
  LV2:=TMemoryStream.Create;
  FindFileFormMergerStream(LFile,LV1,'s1');
  FindFileFormMergerStream(LFile,LV2,'s2');
  VirtualTable1.LoadFromStream(LV1);
  VirtualTable2.LoadFromStream(LV2);
  LV2.Free;
  LV1.Free;
  LFile.Free;
end;

[url=]uMerger.rar[/url]

bugxiong

这是delphi还是lazarus下的？

75557032

这两个其实没区别
我用的都是最基本的，两个应该是通用的。

loxer