高手请进

Question

For rii = 0 To StrLen
  
        iChkSum = iChkSum Xor Val("&H" & Mid(strComSent, rii * 2 + 1, 2))
    Next rii
    strSent = strSent & Right("00" & Hex(iChkSum), 2) & Chr(3)
    strComSent = strSent
这是我在VB里的代码，我想写成dephi的代码来实现相同的功能，请高手帮忙。我现在是换成dephi的写发就是调不过去了

Answer 1

报什么错误？你把你的delphi写法发上来，

Answer 2

主要是VB里写的这个 iChkSum Xor Val("&H" & Mid(strComSent, rii * 2 + 1, 2))
在dephi里要怎么写？