delhi7如何实现unicode(100)

在网上找了一个 从千千静听歌词服务器下载歌词的 小程序，是delphi2009写的，其中有段代码如下：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本身不支持unicode ,没有TEncoding类型，，请教高手，delphi7下如何实现该功能

这里 TEncoding 应该是个用于分析字符串是什么类型的一个自定义对象，也就是说，任何Delphi版本都与这里的 TEncoding 类型无关。这个对象对输入串进行分析，从而判断这些串是utf8、unicode、ansi中的哪种编码类型，以便于后续的解码读取操作。

如果仅仅判断上述三种编码，这个函数就比较好实现。可以参考 Delphi 源代码中对东方字符的判断，先排除 ansi和unicode，如果不是这二种，剩下的就当做utf8处理。也可以在网上找到unicode、utf8字符判断的代码，拿来直接用。

TEncoding 不是自定义对象啊 ---------------------sysUtils 中 TEncoding = class strict private class var FASCIIEncoding: TEncoding; FBigEndianUnicodeEncoding: TEncoding; FDefaultEncoding: TEncoding; FUnicodeEncoding: TEncoding; FUTF7Encoding: TEncoding; FUTF8Encoding: TEncoding;

。。。。

使用 TMSUnicode 控件