设计模式在制作升级文件包中的应用

var aREAD:TFileInfoReadIn; aZip:TZipFile;

begin

aRead:=TFileInfoReadIn.Create(nil,’FileName’);

////////………

aZip:=TZipFile.Create(aRead); //aZip对象添加aRead对象

OperatorFile(aZip); //操纵aZip对象

aRead.Free;

aZip.Free;

end;

操作文件很简单，调用两个接口函数

procedure TMainFrm.OperatorFile(Obj: TFileInfo);

begin

obj.OpBaseList(F_Strings);

obj.OpFileList; //如果还有其他接口，可以在这里逐个调用