delphi如何将字符串转换为AScii

来源：百度知道 编辑：UC知道 时间：2024/06/13 23:33:59
delphi如何将字符串转换为AScii
比如将enter转换为相应的数字

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

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;

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

用 ord 函数

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