delphi如何将字符串转换为AScii
来源:百度知道 编辑:UC知道 时间:2024/09/22 11:42:45
delphi如何将字符串转换为AScii
比如将enter转换为相应的数字
比如将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');