Delphi开发技巧：ASCII码与编码转换[2]

delphi/images/2008345091.jpg">
图5.3  根据ASCII码获得字母

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if (((StrToInt(Edit1.Text))>=65)and((StrToInt(Edit1.Text))<=90))or
      (((StrToInt(Edit1.Text))>=97)and((StrToInt(Edit1.Text))<=122)) then
    Edit2.Text:=chr(strtoint(edit1.Text));
    end;

    字母的ASCII码

    本实例是用ord ()函数将字符转换成ASCII码。运行结果如图5.4所示。

图5.4  获得字母的ASCII码

    主要代码如下：
    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
     if not (key in ['a'..'z','A'..'Z',#8]) then
      key:=#0;
     if (Ord(key)>64)and(Ord(key)<123) then
      x:=IntToStr(Ord(key));
    end;

• Delphi开发技巧：ASCII码与编码转换[1]
• Web开发框架：Wicket1.3发布
• 用DELPHI在状态栏中显示进程条[2]
• 用DELPHI在状态栏中显示进程条[1]
• Delphi 中动态链接库（dll）的建立和使用[2]

请您注意
1、遵守中华人民共和国的各项有关法律规定
2、承担一切因您的行为而导致的法律责任
3、本网留言管理人员有权删除其管辖留言内容
4、您在本网的留言本网有权在网站内转载和引用
5、参与本留言即表明您已经阅读并接受上述条款