如何使用Delphi 2006的TStringList.LoadFromFile方法加载UTF-16文件

Question

如何使用Delphi 2006的TStringList.LoadFromFile方法加载UTF-16文件

delphicharacter-encodingasciiutf-16delphi-2006

3

我有一个Delphi 2006的应用程序，需要添加代码来处理生成的CSV数据文件。TStringList.LoadFromFile返回了奇怪的结果，后来我发现这些文件以UTF-16编码。

计划升级到XE，但目前不是一个选项。

如何在D2006中处理这些文件是最简单的途径？我假设它们可以映射到8位ASCII而没有任何问题 - 它们是“纯粹”的CSV - 只有数字和逗号等字符，我认为不会出现任何与8位字符集不兼容的字符。

- rossmcm

2个回答

1

如果有数据丢失的风险，您可以尝试使用JCL TJclWideStringList。

- Warren P

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Remy Lebeau · Accepted Answer

TStringList在D2006版本中不支持UTF-16编码，因此您需要手动加载和解码文件数据，然后将输出放入您的TStringList中。例如：

var
  sl: TStringList;
  {$IFNDEF D2009_OR_LATER}
  ms: TMemoryStream;
  ptr: PWideChar;
  s: AnsiString;
  dlen, slen: Integer;
  {$ENDIF}
begin
  ...
  {$IFDEF D2009_OR_LATER}
  sl.LoadFromFile('...', TEncoding.Unicode);
  {$ELSE}
  ms := TMemoryStream.Create;
  try
    ms.LoadFromFile('...');
    ptr := PWideChar(ms.Memory);
    dlen := ms.Size div SizeOf(WideChar);
    if (dlen >= 1) and (PWord(ptr)^ = $FEFF) then
    begin
      Inc(ptr);
      Dec(dlen);
    end;
    slen := WideCharToMultiByte(0, 0, ptr, dlen, nil, 0, nil, nil);
    if slen > 0 then begin
      SetLength(s, slen);
      WideCharToMultiByte(0, 0, ptr, dlen, PAnsiChar(s), slen, nil, nil));
    end;
    sl.Text := s;
  finally
    ms.Free;
  end;
  {$ENDIF}
  ...
end;