Delphi 使用system.ZIP 类读取ZIP文件名显示乱码的解决办法

前几天通过读取 TZIPfile.FileInfos数组后使用AnsistringToWideString函数予以解决，通过对System.ZIP源代码的深入分析，发现一个简单的解决办法，代码如下：

 ZipFileInfo := TZipFile.Create;
    ZipFileInfo.Encoding := TEnCoding.GetEncoding(GetACP);  //在此处指定编码为系统当前编码

    if not ZipFileInfo.IsValid(OpenDialog1.FileName)  then exit;

    ZipFileInfo.Open(OpenDialog1.FileName,zmRead) ;

    for I := 0 to  ZipFileInfo.FileCount -1 do
        ListBox1.AddItem(ZipFileInfo.FileName[I] ,nil);
简单彻底解决乱码显示问题。

产生本问题的本质是 system.zip中默认CodePage为437，如果不指定EnCoding，则默认使用439进行字符串的转换，只需要在TZIPfile生成后显式指定CodePage的值即可