delphi 7汉字转utf-8

在Delphi 7中将汉字转换为UTF-8编码可以通过使用TStringStream类实现。首先，我们需要将汉字字符转换为字节流，然后再将其转换为UTF-8编码的字符串。

下面是一个示例代码：

function ConvertToUTF8(const AStr: string): string;
var
  Stream: TStream;
begin
  // 创建一个TStringStream对象，并设置编码为UTF-8
  Stream := TStringStream.Create('');
  try
    Stream.WriteString(AStr); //写入汉字字符到流中
    Stream.Position := 0; //将流的位置设置为初始位置
    Result := UTF8Encode(Stream.ReadString(Stream.Size)); //将流中的字符转换为UTF-8编码
  finally
    Stream.Free; //释放流对象
  end;
end;

可以使用以下方式调用该函数：

var
  Str: string;
  UTF8Str: string;
begin
  Str := '汉字字符串';
  UTF8Str := ConvertToUTF8(Str);
  ShowMessage(UTF8Str); //显示转换后的UTF-8字符串
end;

以上代码将汉字字符串转换为UTF-8编码的字符串，并将其显示在消息框中。记住，使用Delphi 7时需要确保在程序中引入了System.SysUtils单元以使用UTF8Encode函数。