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

本文介绍了如何使用Delphi 7将文本文件从ANSI转换为UTF-8？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

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

I written a program with Delphi 7 which searches *.srt files on a hard drive. This program lists the path and name of these files in a memo. Now I need convert these files from ANSI to UTF-8, but I haven't succeeded.

推荐答案

Utf8Encode函数WideString字符串作为参数并返回一个Utf-8字符串。

The Utf8Encode function takes a WideString string as parameter and returns a Utf-8 string.

示例：

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;

这篇关于如何使用Delphi 7将文本文件从ANSI转换为UTF-8？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！