Question

DELPHI中如何将ASC码转换成INT

我获取一个16进制数的ASC码，如何转换成10进制的INT?
楼下的那个for i:=length(hex_s) downto 1 do 我觉得应该改成for 1 to i:=length(hex_s) do ？

Answer 1

不是和其他各版本的pascal一样吗？chr（asc码）输出int

如

begin
 writeln(chr(68));

Answer 2

{转换一个字符}
function char_16_int(hex_char: char):integer;
begin
if (hex_char>='0')and(hex_char<='9') then result:=ord(hex_char)-ord('0');
if (hex_char>='a')and(hex_char<='f') then result:=10+ord(hex_char)-ord('a');
if (hex_char>='A')and(hex_char<='F') then result:=10+ord(hex_char)-ord('A');
end;

{转换一个字符串}
function str_16_int(hex_s: string):integer;
var x,i:integer;
begin
x:=0;
for i:=length(hex_s) downto 1 do
x:=x*16+char_16_int(hex_s[i]);
Result:=x;
end;

以上程序逻辑没有问题，由于没有调试环境，不确保没有语法错误，如果发现问题请补充。