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.kjueaiud.com/

TAG: ASCII delphi Delphi DELPHI 編碼 技巧 開發