vb代码如何转成DELPHI中代码,求助

Question

如何将下列vb代码如何转成DELPHI中代码,求助
Public Sub zTechCheck_Bcc(check_data As String)
        Dim i As Long
        Dim tempchk As Byte
        Dim bcc As String
        
        check_data = Left(check_data, 48)
        tempchk = 0
        For i = 1 To Len(check_data)
            tempchk = tempchk Xor Asc(Mid(check_data, i, 1))
        Next i
        bcc = Hex(tempchk)
        If Len(bcc) = 1 Then bcc = "0" & bcc
        check_data = check_data & bcc & "OOK"
End Sub

Answer 1

uses StrUtils;
procedure zTechCHeck_Bcc(check_data:string)
var i:integer;tempchk:byte;bcc:string;
begin
 check_data:=LeftStr(check_data,48);
  tempchk:=0;
  for i:=1 to Length(check_data) do
  begin
    tempchk:=tempchk xor Ord(check_data[i]);
  end;
  bcc:=IntToStr(tempchk,2);
  check_data:=check_data+bcc+'OOK';
end;

Answer 2

bcc:=IntToStr(tempchk,2);
这样能行吗,

Answer 3

1，IntToStr改成IntToHex
2，Asc(Mid(check_data, i, 1))一句我没有看懂。

Answer 4

用我的代码就可以了。IntToStr是将整数变为字符串形式，10进制的。IntToHex才是变成16进制的字符串形式