初学delphi就碰到和硬件打交道结果写入的数据错了，望你给我指点一下

Question

$+strtoint(Etc1(setuserno, 1, 2));
.....

Answer 1

    buyenergdata[3] := strtoint($+Etc1(setuserno, 1, 2));//Etc1取字符串 
     buyenergdata[4] := strtoint($+Etc1(setuserno, 3, 2)); 
    buyenergdata[5] := strtoint($+Etc1(setuserno, 5, 2)); 
    buyenergdata[6] := strtoint($+Etc1(setuserno, 7, 2)); 
    buyenergdata[7] := strtoint($+Etc1(setuserno, 9, 2)); 

Answer 2

你输入的是123456
应该是十六进制吧？但是你直接用strtoint(Etc1(setuserno, 1, 2));//
保存的就是十进制的数据。
十进制12 就是 16进制 0C
十进制34 就是 16进制 22
十进制56 就是 16进制 38楼上各位的方法都是对的，细节上有错误：
正确的方法是：
     buyenergdata[3] := strtoint('$'+Etc1(setuserno, 1, 2));//Etc1取字符串 
     buyenergdata[4] := strtoint('$'+Etc1(setuserno, 3, 2)); 
    buyenergdata[5] := strtoint('$'+Etc1(setuserno, 5, 2)); 
    buyenergdata[6] := strtoint('$'+Etc1(setuserno, 7, 2)); 
    buyenergdata[7] := strtoint('$'+Etc1(setuserno, 9, 2));