delphi - 使用 Delphi 打开 ANSI 文件并保存 Unicode 文件

Question

由于某种原因，最近我的许多客户端系统上的 *.UDL 文件不再兼容，因为它们曾经保存为 ANSI 文件，这不再与预期的 UNICODE 文件格式兼容。最终结果是一个错误对话框，指出“该文件不是有效的复合文件”。

以编程方式打开这些文件并另存为 unicode 文件的最简单方法是什么？我知道我可以通过在记事本中打开每个文件，然后另存为同一文件，但在另存为对话框的编码部分中选择“unicode”来完成此操作，但我需要在程序中执行此操作以减少支持来电。

这个问题很容易复制，只需在目录中创建一个 *.txt 文件，将其重命名为 *.UDL，然后使用 microsoft 编辑器对其进行编辑即可。然后用记事本打开它并另存为ANSI编码文件。尝试从 udl 编辑器打开 udl，它会告诉您它已损坏。然后将其保存(使用记事本)为 Unicode 编码文件，它将再次正确打开。

Answer 1

好的，使用 delphi 2009，我能够想出以下代码，该代码似乎可以工作，但是这是进行此转换的正确方法吗？

var
  sl : TStrings;
  FileName : string;
begin
  FileName := fServerDir+'configuration\hdconfig4.udl';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(FileName, TEncoding.Default);
    sl.SaveToFile(FileName, TEncoding.Unicode);
  finally
    sl.Free;
  end;
end;