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;