论坛 › Delphi交流 › 求转换delphi格式代码

hdingguo20 发表于 2018-6-1 10:02:36

求转换delphi格式代码

这个不知道是什么语言写的求大师帮忙转成delphi格式{:10_286:} {:10_286:} {:10_286:}
///////////////////////////////////////////////////////////////////////////////////////////////
code += input + 'V';
for (uint o = 0; o < len_output; ++o)
{
    code += outputs + ',';
}
code.resize(code.length() - 1);
code += '.';
///////////////////////////////////////////////////////////////////////////////////////////////
code += input + 'X';
for (uint o = 0; o < len_output; ++o)
{
   code += outputs + '&';
}
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 - 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, '0', 2) + ',';
}
code.resize(code.length() - 1);
///////////////////////////////////////////////////////////////////////////////////////////////

hdingguo20 发表于 2018-6-2 08:47:11

{:10_266:}{:10_266:}{:10_266:}自己做沙发

hdingguo20 发表于 2018-6-3 20:48:07

{:10_269:}{:10_269:}{:10_269:}

心驰神往 发表于 2020-12-2 09:11:30

{:10_244:}

查看完整版本: 求转换delphi格式代码