如何将一个字符串转换成标准ASCII值
解决方案 »
- 哪位能给我一个OleVariant类型数据包的压缩解压算法?
- 如何让某一事件失效?
- 我有一个播放器程序,在重新编译时出错,而且生成的exe放在其他机子,不能正常工作
- 突发问题一个,求助!
- 如何获知一个窗口所属的exe是什么
- Loading......简单的问题>>>>>>>>>>>>>>=>
- 如何使用户只能选择ComboBox下拉框中的内容,而不能自己输入。
- 请问大家,怎么屏蔽ALT+CTRL+DEL 的组合键。再问,del等键是怎么表示的。
- byte* 与PByte转换
- 关于小问题…………………50分相送……………`
- Delphi线程问题。急!急!急!急!
- 软件更新,大家帮忙测试一下,谢谢!
//在edit3中根据ASCII码还原。
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=inttostr(ord(edit1.Text[1])); //只取Edit1中第一个字符~
edit3.Text:=chr(strtoint(edit2.Text));
end;
chr 返回指定序数的字符