pbyte类型应用问题 ( 积分: 50 )

DLL函数的定义：function Reading(cardbyte):smallint;
vb代码（通过测试）
Dim CardName(9) As Byte
Dim iTemp, i As Integer
Dim sTemp As String
iTemp = Term_ReadCard(CardName(0))
sTemp = ""
For i = 0 To 9
sTemp = sTemp + Chr(CardName(i))
Next i
Text1.Text = sTemp
End If
卡号是454455DF44这种类型的,我用Delphi编写代码,可是对于PBtye不知道该怎么用,重要是不知道该如何让指针移动，我的代码：
click事件：
CardNameByte;
iTemp,i:integer;
sTemp:string;
begin
iTemp := Term_ReadCard(CardName);
sTemp := '' ;
sTemp := sTemp + char(CardName);
edit1.Text := sTemp;//显示一个数字，就是卡号的第一位
end;
end.
我该怎样才能让全部的字符读出来？

DLL函数的定义：function Reading(cardbyte):smallint;
vb代码（通过测试）
Dim CardName(9) As Byte
Dim iTemp, i As Integer
Dim sTemp As String
iTemp = Term_ReadCard(CardName(0))
sTemp = ""
For i = 0 To 9
sTemp = sTemp + Chr(CardName(i))
Next i
Text1.Text = sTemp
End If
卡号是454455DF44这种类型的,我用Delphi编写代码,可是对于PBtye不知道该怎么用,重要是不知道该如何让指针移动，我的代码：
click事件：
CardNameByte;
iTemp,i:integer;
sTemp:string;
begin
iTemp := Term_ReadCard(CardName);
sTemp := '' ;
sTemp := sTemp + char(CardName);
edit1.Text := sTemp;//显示一个数字，就是卡号的第一位
end;
end.
我该怎样才能让全部的字符读出来？

cardname:array[0..9] of byte;
iTemp := Term_ReadCard(@CardName[0]);//这样也对，可是读不出东西？？

iTemp := Term_ReadCard(@CardName);

成功了，我的方法和islet8的都可以实现，谢谢islet8，虽然我自己也解决了问题，但还是要谢谢你，50分作为报答 ^_^
iTemp := ReadCard(@CardName[0]);
sTemp := '' ;
For i := 0 To 9 do
begin
sTemp := sTemp + char(CardName);
end;
edit3.Text := sTemp;