开钱箱指令问题Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255)(100分)

我将这个指令写在ini文件中 Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255)
然后从ini文件中读出来，就开不了钱箱了，请问要如何对ini文件中
Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255) 进行处理就可以开钱箱？

转换成 16进制

类型装化一下,ini里面就是要写
OpenCom = 27+p+0+60+255
然后一个判断语句就可以了
Var
a,b:string;
tmp:word;
readini(a,opencom);// 这个意思 a:='27+p+0+60+255';
b:='';
while pos('+',a)<>0 do
begin
tmp:=pos('+',a);
if tmp<>0 then
begin
if copy(a,1,tmp-1)[1] in ['0'..'9'] then
b:=b+chr(strtoint(copy(a,1,tmp-1)))
else
b:=b+copy(a,1,tmp-1);
delete(a,1,tmp);
end;
end;
b:=b+chr(strtoint(a));
把b发到钱箱!搞顶!

谢谢您