string - Inno Setup 从 CDATA 创建 TStringList

Question

我在 CDATA 元素中有一个列表。如何从 CDATA 中获取元素并将其添加到 TStringList？

如果我得到 CDATA 字符串，它会返回：

'string'#10#9#9#9'string'#10#9#9#9'string'#10#9#9#9'string'...

但是字符#10#9#9#9 不是字符串；我不能使用 StringChangeEx 方法来替换这些字符。

谢谢

Answer 1

您得到的字符串是包含不可打印字符的字符串的有效表示法。但是您不必担心在使用字符串列表或StringChangeEx函数时会丢失任何字符。让我用这个简短的脚本说服你：

[Code]
const
  PrintableString = 'string-string-string-string';
  NonPrintableString = 'string'#10#9#9#9'string'#10#9#9#9'string'#10#9#9#9'string';

procedure InitializeWizard;
var
  S: string;
  StringList: TstringList;
begin
  StringList := TstringList.Create;
  try
    StringList.Add(NonPrintableString);
    S := StringList[0];

    if S = NonPrintableString then
      MsgBox('String list didn''t lose non printable chars!', mbInformation, MB_OK);

    StringChangeEx(S, #10#9#9#9, '-', True);

    if S = PrintableString then
      MsgBox('String has been modified as expected!', mbInformation, MB_OK);
  finally
    StringList.Free;
  end;
end;

但是，我认为提出您的问题只是因为您想将这些数据呈现给用户，而对于不可打印的字符，这有时可能会很困难。一个例子。如果您有一个中间包含空终止符的字符串，并且您希望向用户显示该字符串，例如在消息框中，您将只显示该字符串在该终止符之前的部分。但是，这不是你可以影响的。这就是后面的 Windows API 函数调用处理字符串的方式：

[Code]
procedure InitializeWizard;
var
  S: string;
begin
  S := 'Hello'#0' world!';
  MsgBox(S, mbInformation, MB_OK);
end;

如您所见，对于上述情况，需要用一些可打印的字符（例如空格）替换空终止符字符。