Question

在Delphi中怎么把字符转换成Ascii码？

Answer 1

ord(ch)如只有两位数ord(ch) div 10ord(ch) mod 10位数多了也差不多

Answer 2

怎么把“1”转成"31"并分别取高位"3"和低位"1"

Answer 3

i:=ord(ch);//ch='1's:=s+chr((i shr 4) and $0F+$30);//s:strings:=s+chr(i and $0F+$30);//s='31';