这个代码怎么转换成delphi(100)

Dim xData(15) As LongxData(0) = Val("&H" & Mid(Text2.Text, 1, 2))xData(1) = Val("&H" & Mid(Text2.Text, 3, 2))xData(2) = Val("&H" & Mid(Text2.Text, 5, 2))xData(3) = Val("&H" & Mid(Text2.Text, 7, 2))xData(4) = Val("&H" & Mid(Text2.Text, 9, 2))xData(5) = Val("&H" & Mid(Text2.Text, 11, 2))xData(6) = Val("&H" & Mid(Text2.Text, 13, 2))xData(7) = Val("&H" & Mid(Text2.Text, 15, 2))xData(8) = Val("&H" & Mid(Text2.Text, 17, 2))xData(9) = Val("&H" & Mid(Text2.Text, 19, 2))xData(10) = Val("&H" & Mid(Text2.Text, 21, 2))xData(11) = Val("&H" & Mid(Text2.Text, 23, 2))xData(12) = Val("&H" & Mid(Text2.Text, 25, 2))xData(13) = Val("&H" & Mid(Text2.Text, 27, 2))xData(14) = Val("&H" & Mid(Text2.Text, 29, 2))xData(15) = Val("&H" & Mid(Text2.Text, 31, 2)) Dim iRow As Long, iMode As Long iRow = Val(txtDnum.Text) Dim Di_n As Long Di_n = 4 If SM_Comm1.DspData(Val(txtSnr.Text), DrvFZ, iTCP, xData, iRow, Di_n, 300) = 0 Then MsgBox "OK"

SM_Comm1.DspData(Val(txtSnr.Text), DrvFZ, iTCP, xData, iRow, Di_n, 300) = 0中 xdata是 pSafeArray类型的

xData(0) = StrToInt('$' + Copy(Text2.Text, 1, 2))

我知道啊 关键是 xdata 这个传进去 跟vb的 那个不一样了