| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/14 18:33:44 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我想得到edit.text里的每个字符的ASCII码，该怎么办？谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/14 18:38:07 | ||||
| 1楼： | ord() ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/14 18:47:01 | ||||
| 2楼： | 谢谢1楼!好像不行，是这样的，我在edit里输入一串密码，我想得到这串密码每个字符的ascii码，我于是将这串密码放在一个pchar数组里，用ord()结果提示类型不匹配，可我又不知道怎么将edit.text里的内容放到一个char数组里，请赐教。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/14 19:54:23 | ||||
| 3楼： | TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject); var p:pchar; a:byte; i:integer; begin p:=pchar(self.Edit1.Text); for i:=0 to length(p)-1 do begin a:=ord(p[i]); showmessage(inttostr(a)); end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/15 8:50:48 | ||||
| 4楼： | procedure TForm1.Button1Click(Sender: TObject); var i:integer; srcStr: string; begin for i := 1 to length(edit1.Text) do begin srcStr := srcStr + ' ' + IntToStr(ord(edit1.Text[i])); showmessage(srcStr); end; end; ----------------------------------------------  敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/15 10:04:00 | ||||
| 5楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 我是小菜鸟，我向大家学习。 大虾帮帮我，让我长成老鸟。 |
|||||
| 信息 |
| 登陆以后才能回复 |
