utf8.txt

这各函数能将字符串转换成UTF8格式并且是十六进制的内码格式

Function StrToUTFHex(StrString)String;       把字符串转换成UTF-8 十六进制形式
Var ninteger;
Begin
  Result='';
  Str=UTF8Encode(str);
  For n=1 To Length(str) do
  begin
    Result=Result+IntToHex(Ord(Str[n]),2);
  end;