admin管理员组

文章数量:1531262

2024年7月23日发(作者:)

i:=1;

while i< length(str) do begin

t:=str[i]+str[i+1];

s:=s+chr(hextoint(t));

i:=i+2;

end;

result:=s;

end;

本文标签: 字符串进制实现