当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi 获取ASCII码的方法及示例代码

  •   时间:2019-07-10
  • 概述:ASCII

Delphi 获取ASCII码的方法及示例代码,这个代码相对简单些,原理相信你一看就明白了,适合了Delphi新手学习。

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  x:string;
implementation
{$R *.dfm}
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=x;
end;
end.

    相关声明:

      若“Delphi 获取ASCII码的方法及示例代码”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。