分配给 TStringList 时字符串丢失数据

Question

我有这个方法，

var
s : TStringList;
fVar : string;
begin
s := TStringList.Create;
fVar := ZCompressStr('text');

ShowMessage( IntToStr(length(fVar) * SizeOf(Char)) );
//24

s.text := fVar;  

ShowMessage( IntToStr( length(s.text) * SizeOf(Char)) );
//18
end;

ZCompressStr 来自http://www.base2ti.com/zlib.htm，第 121 行从 {$ifndef UNICODE} 到 {$ifdef UNICODE} 让它编译。

无论如何，如果我使用 fVar 变量，我可以调用 ZDecompressStr，但是一旦我将它移动到字符串列表或备忘录，它似乎会丢失这 6 个字节的数据......如果我尝试在 s 上使用 ZDecompressStr .text var 它因缓冲区错误而失败。

Answer 1

您没有理由不得不更改 ZLibEx.pas 的第 121 行；它适用于所有版本的 Delphi，包括 Delphi 2009。UNICODE 符号应该只为 Delphi 2009 定义，如果是，RawByteString、UnicodeString 的类型定义，和 UnicodeChar 都应该被跳过，因为它们已经是语言中的固有类型。

ZCompressStr 将生成一个可能包含不可打印字符的字符串，包括空字节。它将结果存储在 RawByteString 中，Delphi 对此进行了特殊处理。

TStringList 与 Delphi 2009 中的几乎所有其他内容一样，使用 Unicode。它的Text 属性是UnicodeString 类型。当您将 any 非UnicodeString 值分配给UnicodeString 时，您将获得转换，就像来自MultiByteToWideStr API 函数一样。甚至RawByteString 也包含在该规则中。如果您没有为 RawByteString 分配特定于代码页的字符串值，那么它将具有代码页 0，即 CP_ACP，这是您系统的默认代码页。

如果字符串实际上不包含根据系统代码页编码的字符，那么任何转换都是自找麻烦：垃圾输入，垃圾输出。特别是，不能保证您会得到相同数量的字符。

As Smok1 mentioned, TStringList.Text 是一个属性。它有一个 setter 方法，可以将给定的字符串分成单独的行。当您读取该属性时，它会再次将所有这些行重新连接成一个字符串。在 设置 属性时，TStrings.SetTextStr（在 Classes.pas 中，如果您好奇的话）将在 #0、#10、#10、或#13。即空字符、换行和回车。当重新加入所有行时，它将使用其LineBreak 属性，该属性由全局sLineBreak 变量初始化。最后一个字符串之后也有一个换行符，所以每一行都以LineBreak结尾。因此，转换不一定是往返的。

所以，有两点可以借鉴：

1. 不要将压缩数据视为文本。
2. 不要使用TStrings 后代来保存您不想处理多个字符串的内容。

另一个好建议：不要将string 用作通用数据存储类型。仅将其用于实际文本。对于任意二进制数据的存储，首选TBytes 或TMemoryStream。使用您的示例，您可以像这样压缩字符串：

var
  ss: TStream;
  ms: TMemoryStream;
begin
  ss := TStringStream.Create('text');
  try
    ms := TMemoryStream.Create;
    try
      ShowMessage(IntToStr(ss.Size));
      ZCompressStream(ss, ms);
      ShowMessage(IntToStr(ms.Size));
    finally
      ms.Free;
    end;
  finally
    ss.Free;
  end;
end;

Answer 2

这可能是转换 - TStringList.Text 属性是一个属性，而不是变量。您以一种有点危险的方式使用它，因为在 TStringList 中有一些 Text 处理。