如何使用Delphi 7将文本文件从ANSI转换为UTF-8？

Question

我用Delphi 7编写了一个程序,用于*.srt在硬盘上搜索文件.此程序在备忘录中列出这些文件的路径和名称.现在我需要将这些文件从ANSI转换为UTF-8,但我还没有成功.

Answer 1

Utf8Encode函数将WideString字符串作为参数并返回Utf-8字符串.

样品:

procedure ConvertANSIFileToUTF8File(AInputFileName, AOutputFileName: TFileName);
var
  Strings: TStrings;
begin
  Strings := TStringList.Create;
  try
    Strings.LoadFromFile(AInputFileName);
    Strings.Text := UTF8Encode(Strings.Text);
    Strings.SaveToFile(AOutputFileName);
  finally
    Strings.Free;
  end;
end;

Answer 2

你指的是ASCII吗？

ASCII 向后兼容 UTF-8。 http://en.wikipedia.org/wiki/UTF-8