WinAPI字符及字符串函數(shù)(5):IsCharAlpha-是否是個(gè)字母

interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;
    type
    TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    end;
    var
    Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.Button1Click(Sender: TObject);
    var
    c: Char;
    b: BOOL;
    begin
    c := #65; {A}
    b := IsCharAlpha(c);
    ShowMessage(BoolToStr(b, True)); {True}
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    var
    c: Char;
    b: BOOL;
    begin
    c := #97; {a}
    b := IsCharAlpha(c);
    ShowMessage(BoolToStr(b, True)); {True}
    end;
    procedure TForm1.Button3Click(Sender: TObject);
    var
    c: Char;
    b: BOOL;
    begin
    c := #48; {0}
    b := IsCharAlpha(c);
    ShowMessage(BoolToStr(b, True)); {False}
    end;
    procedure TForm1.Button4Click(Sender: TObject);
    var
    c: Char;
    b: BOOL;
    begin
    c := #13; {回車(chē)鍵}
    b := IsCharAlpha(c);
    ShowMessage(BoolToStr(b, True)); {False}
    end;
    procedure TForm1.Button5Click(Sender: TObject);
    var
    c: WideChar;
    b: BOOL;
    begin
    c := #19975; {萬(wàn)}
    b := IsCharAlpha(c);
    ShowMessage(BoolToStr(b, True)); {False}
    end;