简单问题:获取字符串的ASCII,将ASCII还原成字符串?

CodeDuDu 2002-01-08 07:33:17
有现成的函数吗?
...全文
166 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
zwjchina 2002-01-08
  • 打赏
  • 举报
回复
你的问题有点奇怪[ 'A' 的ASCII码 为数值65]
对与字符串'AAA'你要获取一个什么样的结果?
是数值:656565 (获取这个明显是不行的'AAAAAAAAAAAAAAA'对应的数太大了)
还是字符串:'656565'
pdsinfo 2002-01-08
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
s,t:string;
begin
s:=''; t:='etli5501ff.#';
for i:=1 to Length(t) do s:=s+t[i]+'-->'+IntToStr(ord(t[i]))+#13;
ShowMessage(s);
end;
CodeDuDu 2002-01-08
  • 打赏
  • 举报
回复
我想知道("etli5501ff.`#")这一串字符的ASCII码,用什么函数?
pdsinfo 2002-01-08
  • 打赏
  • 举报
回复
sorry!!
ch2:=chr(66); // ch2='B' //打错了! ^$^
pdsinfo 2002-01-08
  • 打赏
  • 举报
回复
-->字符串的ASCII
^^^^^
?
----------------------------
var ch,ch2:char ;
b:byte;
..
ch:='A';
b:=ord(ch); // b=65;
ch2:=chr(66); // ch2='A'
...
suny_2001 2002-01-08
  • 打赏
  • 举报
回复
比如A

showmessage(widechar(65))

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧