求大神帮忙把这一句VB.NET代码转换成DELPHI XE10
踏雪无痕 2017-02-10 10:07:08 我有一个VB.NET的代码,自己百度VB.NET中相关函数以后,转换成等效的XE10的代码,其中:inStr是传入的字符串string,num是整数int(VB.NET)/integer(XE10),当传入字符串为数字、英文、字符等非中文时,两者得到结果是一样的,但是如果传入的是字符串包含中文就不一样。
尝试在Delphi7环境下测试,虽然和XE10得到的结果不一样,但是和VB.NET得到的结果也不一样,所以可能不仅仅是string和ansistring,widestring不一样的原因,因为本人不会VB.NET所以不清楚哪儿不对,求指教!
VB.NET:
StringType.FromChar(Strings.Chr(Strings.Asc(Strings.Mid(inStr, num, 1))));
XE10:
string(Char(Ord(Copy(inStr, num, 1)[1]) ))