如题所述
Delphi7
var
ustr: WideString;
for i := 1 to Length(ustr) do
strResult := strResult + IntTohex(Ord(ustr[i]),4);
var
ustr: WideString;
for i := 1 to Length(ustr) do
strResult := strResult + IntTohex(Ord(ustr[i]),4);
温馨提示:答案为网友推荐,仅供参考