5,388
社区成员
发帖
与我相关
我的任务
分享字符串--》字符--》ASCII？？。。。。。
我想将一个字符串转换成ASCII的编码，首先将字符串遍历，转化成字符后，再转化成ASCII编码，可是取字符串中只包含一个字符的串后，如何将其转化成字符型呢？再转化成ASCII，在线等待！
...全文
请发表友善的回复…
发表回复
oracle_lover 2002-09-11
- 打赏
- 举报
var
str1:string;
arr1:Array of byte;
begin
str1:='ABC';
setLength(arr1,length(str1)); //将byte数组设定为与字符串等长
for i:=1 to length(arr1) do
char(arr1[i-1]):=str1[i];
//将字符串中的每个字符的ASCII码赋给数组
//数组下标从0开始，字符串下标从1开始
//char(字符)与byte(字节)类型实际是一样的
//循环结束后，数组中的arr1[0],arr1[1],arr1[2]的值分别是65,66,67，即A，B，C的ASCII码值
end;
//以上程序在Delphi6编译通过，结果正确
str1:string;
arr1:Array of byte;
begin
str1:='ABC';
setLength(arr1,length(str1)); //将byte数组设定为与字符串等长
for i:=1 to length(arr1) do
char(arr1[i-1]):=str1[i];
//将字符串中的每个字符的ASCII码赋给数组
//数组下标从0开始，字符串下标从1开始
//char(字符)与byte(字节)类型实际是一样的
//循环结束后，数组中的arr1[0],arr1[1],arr1[2]的值分别是65,66,67，即A，B，C的ASCII码值
end;
//以上程序在Delphi6编译通过，结果正确
yuanbxr 2002-09-11
- 打赏
- 举报
不行啊，我试过了，能不能写得详细一点啊！
dreamfan 2002-09-11
- 打赏
- 举报
char()
ord()
ord()
