WinAPI 字符及字符串函数(5): IsCharAlpha - 是否是个字母

unit Unit1;

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; {回车键}
? b := IsCharAlpha(c);
? ShowMessage(BoolToStr(b,True)); {False}
end;

procedure TForm1.Button5Click(Sender: TObject);
var
? c: WideChar;
? b: BOOL;
begin
? c := #19975; {万}
? b := IsCharAlpha(c);
? ShowMessage(BoolToStr(b,True)); {False}
end;

end.