鱼C论坛

 找回密码
 立即注册
查看: 2591|回复: 3

求转换delphi格式代码

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

马上注册,结交更多好友,享用更多功能^_^

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

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);
///////////////////////////////////////////////////////////////////////////////////////////////
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2018-6-2 08:47:11 | 显示全部楼层
自己做沙发
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-6-3 20:48:07 | 显示全部楼层
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-12-2 09:11:30 | 显示全部楼层
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 08:00

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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