求助各位大神PB改成BCB?
---------函数-------
readcard ( long port, string sysid, ref string rfromid, ref string userid, ref long cardtype, ref long cardflag, ref real price[], ref long stepp[], ref long warn, ref long overdraft, ref long limit, ref real salemoney, ref long buycount, ref real totalusage, ref real leftmoney, ref long reed, ref long valve, ref long flash, ref long battery, ref string meterdate ) returns long
----------过程----------------
long tt
string sysid,rfromid, userid,meterdate
long cardtype,cardflag,buycount,reed,valve,flash, battery,warn,overdraft,limit
real salemoney,totalusage,leftmoney
sysid="ABCD0102"
rfromid=space(17)
meterdate=space(17)
int i
real price[]
long stepp[]
for i=1 to 2
stepp[i]=0
next
for i=1 to 3
price[i]=0.00
next
tt=ReadCard( port1,sysid,rfromid, userid, cardtype, cardflag,price,stepp, warn, overdraft, limit,salemoney, buycount,totalusage,leftmoney, reed, valve, flash, battery, meterdate)
其中返回的 price,stepp 部分怎么写?