鱼C论坛

 找回密码
 立即注册
查看: 244|回复: 2

求转换delphi格式代码

[复制链接]
最佳答案
0 
发表于 2018-6-1 10:02:36 | 显示全部楼层 |阅读模式

马上注册加入鱼C,享用更多服务吧^_^

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
这个不知道是什么语言写的求大师帮忙转成delphi格式
///////////////////////////////////////////////////////////////////////////////////////////////
code += input + 'V';
for (uint o = 0; o < len_output; ++o)
{
    code += outputs[o] + ',';
}
code.resize(code.length() - 1);
code += '.';
///////////////////////////////////////////////////////////////////////////////////////////////
code += input + 'X';
for (uint o = 0; o < len_output; ++o)
{
   code += outputs[o] + '&';
}
code.resize(code.length() - 1);
///////////////////////////////////////////////////////////////////////////////////////////////
uint8 inp = input-1;
uint8 len = len_output*2 + 2;
uint8 check =  0x96 + 0x01 + 0x01 + 0xA0 + len;
string str;
for (uint o = 0; o < len_output; ++o)
{
    uint8 outp = outputs[o] - 1;
    str+= chr(outp) + chr(inp);
    check += outp + inp;
}
check = 0xff&check;
if (0x96 == check) check = 0x6A;
code += mem(0x960101) + chr(len) + chr(0xA0) + str + mem(check);
///////////////////////////////////////////////////////////////////////////////////////////////
code +=  '*' + fmt(input, '0', 2) + 'R';
for (uint o = 0; o < len_output; ++o)
{
    code +=  fmt(outputs[o], '0', 2) + ',';
}
code.resize(code.length() - 1);
///////////////////////////////////////////////////////////////////////////////////////////////
最佳答案
0 
 楼主| 发表于 2018-6-2 08:47:11 | 显示全部楼层
自己做沙发
最佳答案
0 
 楼主| 发表于 2018-6-3 20:48:07 | 显示全部楼层
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

小甲鱼强烈推荐上一条 /1 下一条

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号

GMT+8, 2018-8-21 04:59

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表