介绍
本文章介绍了Delphi XE5 android 使用System.Zip单元释放资源文件,在写代码之前,需要先引用
System.Zip.pas
然后编写如下的代码
var
zip: TZipFile;
begin
//首先创建对象
zip := TZipFile.Create;
//打开需要解压缩的Zip文件
zip.Open(TPath.GetDocumentsPath + PathDelim +'txt.zip', TZipMode.zmRead);
//解压缩所有的文件到指定的目录
zip.ExtractAll(TPath.GetDocumentsPath + PathDelim);
//释放资源
FreeAndNil(zip);
end;
关键字词: