转换代码：vc++转DELPHI
m_iMaxDots=0;
int i,iSize;
BYTE bytChk;
CByteArray bytArr;
bytArr.Add(0xAA);
bytArr.Add(0xAA);
bytArr.Add(0x03);
bytArr.Add(0x0D);
iSize=bytArr.GetSize();
bytChk=bytArr.GetAt(0);
for(i=1;i<iSize;i++)
{
bytChk^=bytArr.GetAt(i); //按异或校验
}
bytArr.Add(bytChk); //加入校验码
问题点数：50、回复次数：5Top
1 楼212038（磐石）回复于 2004-12-03 18:19:07 得分 0
怎么没有人呀全都睡了呀Top
2 楼wasltone（WT.）回复于 2004-12-03 19:40:01 得分 0
如果你学DELPHI那就自己转？反正我不会DELPHI
Top
3 楼212038（磐石）回复于 2004-12-06 09:03:17 得分 0
就没有一个会VC又会DElphi的吗？Top
4 楼bjskyhorse（）回复于 2004-12-06 09:11:28 得分 50
如下：
m_iMaxDots=0;
var i,iSize:integer;
bytChk：byte;
bytArr：arry[0..个数目】 of byte; //用DELPHI里BYTE数组对应吧--CByteArray;
bytArr.Add(0xAA); //这些用扶植代替
bytArr.Add(0xAA);
bytArr.Add(0x03);
bytArr.Add(0x0D);
iSize：=strlen(bytArr）；
bytChk：=bytArr【0】//.GetAt(0);
for(i=1;i<iSize;i++)
{
bychk：=bychk xor bytarr[i];
//bytChk^=bytArr.GetAt(i); //按异或校验 //
}
byaarr【后1个】：＝校验码
bytArr.Add(bytChk); //加入校验码 //
Top
5 楼tigerjacky（林石--抢滩VC）回复于 2004-12-06 09:16:20 得分 0
忘差不多了Top
