Delphi6中用那个函数获取字符ASCII值 ?? 急,在线等待 原来delphi5中好像可以直接赋值给integer型的变量就能实现转换了,现在delphi6中编译报错,在Delphi6中用那个函数获取字符ASCII值?? 在线等待解答。先谢过了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);varc:char;i:byte;beginc:=#32;i:=byte(c);//取出ascii码值给ishowmessage(inttostr(i));end; 你照着这个变化一下,就可以了。关键在于要将char强制转换为byte类型,就是其ascii码值了 都不好啊用这个了保你灵啊memo1.text:=inttostr(ord('a'));返回97 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin Label1.Caption:=inttostr(Key);end; int:i;char: c;i := ord(c); 不管怎么样,谢谢各位进来的朋友了。to : caohonglong2000(chl) “关键在于要将char强制转换为byte类型,就是其ascii码值了” 就是这个关键。测试通过,谢谢了。我刚也找了下,用这个方法实现的: Temp := pchar(copy(str1,1,1)); c := Temp^; ret := ord(c);因为我是要转换字符串的字符,这种方法好像存在释放pChar类型的temp的问题。 ActiveX TSTCON32无法退出进程 如何保持文件打开状态? 请教一个小问题? ttable的InsertRecord方法大家用的多吗,这个函数好用吗?我觉得至少它很方便 那里有Delphi 5 开发人员指南 英文版下载 看来我错了 痛哭,早上崩机了,大大们告诉我哪里有DELPHI6下载吧 如何通过一个执行文件关闭另一个可执行文件哪? 谁能告诉我用代码控制光驱的打开和关闭的api 2000下普通用户用DELPHI的一些问题。 为什么资源被释放窗口还会'显示',但如果改show就不显示,请指示一下. 求深圳Delphi+Ms SQL编程高手合作,来信必复!
var
c:char;
i:byte;
begin
c:=#32;
i:=byte(c);//取出ascii码值给i
showmessage(inttostr(i));end;
关键在于要将char强制转换为byte类型,就是其ascii码值了
用这个了
保你灵啊
memo1.text:=inttostr(ord('a'));返回97
Shift: TShiftState);
begin
Label1.Caption:=inttostr(Key);
end;
char: c;
i := ord(c);
“关键在于要将char强制转换为byte类型,就是其ascii码值了” 就是这个关键。测试通过,谢谢了。我刚也找了下,用这个方法实现的:
Temp := pchar(copy(str1,1,1));
c := Temp^;
ret := ord(c);
因为我是要转换字符串的字符,这种方法好像存在释放pChar类型的temp的问题。