vb代码转delphi，请大神们献策！

Question

delphivb ASCBMIDB

Answer 1

var
  bData: array of Byte;
  TempStr, strSem1, str1, HexStr: WideString;
  i,j: Integer;
begin
  SetLength(bData, 100);
  TempStr := '我超';
  j := 11;
  i := 0;  bData[j] := PByte(Copy(TempStr, i + 1, 1))^;
  strSem1 := IntToStr(bData[j]) + strSem1;  HexStr := IntToHex(StrToIntDef(str1,0), 1);
end;

Answer 2

Dim bData() As Byte
声明bData为字节数组Hex转16进制，可以用IntToHexAscB等几个函数都是操作字节或字符的，功能参考
http://blog.sina.com.cn/s/blog_5067ef490100ew5k.html

Answer 3

Dim bData() As Byte

bData(j) = AscB(MidB(Mid(TempStr, i + 1, 1), 1, 1))
  strSem1 = bData(j) & strSem1 HexStr = Hex(str1) -->这个可以直接使用delphi中的IntToHex转吗？var
  bData: array of Byte;
  TempStr, strSem1, str1, HexStr: string;
  i,j: Integer;
begin
  SetLength(bData, 100);
  TempStr := '我超';
  j := 11;
  i := 0;  bData[j] := PByte(Copy(TempStr, i + 1, 1))^;
  strSem1 := IntToStr(bData[j]) + strSem1;  HexStr := IntToHex(StrToIntDef(str1,0), 1);
end;