如何不解压zip查看其中的文件列表（使用vclzip）

最新推荐文章于 2023-12-29 19:16:27 发布

原创最新推荐文章于 2023-12-29 19:16:27 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #vclzip

本文介绍了一个使用VCLUnZip组件读取ZIP文件并列出其内容的Delphi代码示例。通过遍历ZIP文件中的每个条目，将其名称添加到CheckListBox2中，展示了如何与Delphi的VCL组件进行集成。

var
  icount:Integer;
begin
  with VCLUnZip1 do
  begin
    ZipName := Self.CheckListBox1.Items[Self.CheckListBox1.itemindex];
    ReadZip;

   
   for icount := 0 to count-1  do
   begin
    CheckListBox2.Items.Add(FullName[icount]);
   
    end;
  end;
end;