求转换delphi格式代码

hdingguo20

这个不知道是什么语言写的求大师帮忙转成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);
///////////////////////////////////////////////////////////////////////////////////////////////

hdingguo20

自己做沙发

hdingguo20

心驰神往