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

领测软件测试网

    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;

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