Question

delphi如何将字符串转换为AScii

delphi如何将字符串转换为AScii
比如将enter转换为相应的数字

Answer 1

采用自定义函数，方法如下：

function strtoascii(var inputAnsi:string): integer;
//字符串转换为ascii值,转换值是一个各单独值相加后的结果
var
  Ansitemp,i,OutPutAnsi :integer;
begin
  OutPutAnsi:=0;
  For i:=0 To Length(inputAnsi) Do
    begin
      Ansitemp := ord(inputAnsi[i]);
      outputansi := OutPutAnsi+Ansitemp;
    end;
  Result:= OutPutAnsi;
end;

Answer 2

Ord(ch) ch ->ascii
chr(n) ascii ->char

Answer 3

用
ord
函数
Ord('e')；
Ord('n')；
Ord('t')；
Ord('e')；
Ord('r')；

Answer 4

用 ord 函数

Ord('e')；
Ord('n')；
Ord('t')；
Ord('e')；
Ord('r')；