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;

原文转自：http://www.ltesting.net