delphi7 里面没有TEncoding这个类怎么办？

[qq631565054]

function TfrmMain.ToQianQianHexString(s: string; encode: TEncoding): string;
var TmpStr: string;
ByteAy: Tbytes;
tmpByte: Byte;
begin
ByteAy := encode.GetBytes(s);
TmpStr := '';
for tmpByte in ByteAy do
TmpStr := Format('%s%.2x', [tmpstr, tmpbyte]);
Result := TmpStr;
end;
//这个函数在Delphi7里面怎么改？ 才学几个月的新手，谢谢！

[麦客来了]

System.pas中的定义的函数AnsiToUtf8不行吗？

[dinoalex]

TEncoding应该是delphi2007以后的版本里的类,D7是用不了的

[dinoalex]

是关于Unicode的,D7不支持,你只能转成delphi2007以后的版本.

[kfcoffe]

没有就加，不支持就换版本。呵呵

[qq631565054]

说了等于没有说啊！
难道没有delphi 200X,就不活了。。。

[麦客来了]

http://blog.csdn.net/senfore/archive/2009/01/30/3855211.aspx

[qq631565054]

[Quote=引用 5 楼 biekvn 的回复:]
http://blog.csdn.net/senfore/archive/2009/01/30/3855211.aspx
[/Quote]

感谢，但是D7用不了啊

[qq631565054]

主要，就是想把几个汉字，按字节转换为16进制Utf-8

[sssjmh]

[Quote=引用 5 楼 biekvn 的回复:]
http://blog.csdn.net/senfore/archive/2009/01/30/3855211.aspx
[/Quote]
非常好