求大神帮忙把这一句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]) ))

...全文
393 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xyxhz 2017-03-01
  • 打赏
  • 举报
回复
最好的方法就是将嵌套的代码一层一层拆开,调试一下看看到底在哪一层出错,改之即可。
  • 打赏
  • 举报
回复
就是Copy(inStr, num, 1)吧,不用转那么多次。

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧