Delphi中System.Zip中文文件名乱码解决

新版本Delphi中自带的Zip单元System.Zip使用很方便，但是在压缩文件中包含中文路径或文件名时解压后是乱码，这一点儿确实挺烦人。

之所以会出现乱码是由以下两个函数造成的：

function TZipFile.TBytesToString(B: TBytes): string;
var
  E: TEncoding;
begin
  if FUTF8Support then 
    E := TEncoding.GetEncoding(65001)
  else
    E := TEncoding.GetEncoding(437);
  try
    Result := E.GetString(B);
  finally
    E.Free;
  end;
end;

function TZipFile.StringToTBytes(S: string): TBytes;
var
  E: TEncoding;
begin
  if FUTF8Support then 
    E := TEncoding.GetEncoding(65001)
  else
    E := TEncoding.GetEncoding(437);
  try
    Result := E.GetBytes(S);
  finally
    E.Free;
  end;
end;

将上面红色标记的代码中CodePage修改为936即可解决，或者直接替换掉这两个函数：

function TZipFile.TBytesToString(B: TBytes): string;
begin
  if FUTF8Support then
    Result := TEncoding.UTF8.GetString(B)
  else
    Result := TEncoding.Default.GetString(B);
end;

function TZipFile.StringToTBytes(S: string): TBytes;
begin
  if FUTF8Support then
    Result := TEncoding.UTF8.GetBytes(S)
  else
    Result := TEncoding.Default.GetBytes(S);
end;