字符串转ＡＳＣ

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;