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;

文章来源于领测软件测试网 https://www.ltesting.net/

TAG: ASCII delphi Delphi DELPHI 编码 技巧 开发