WinAPI 字元及字串函式(5): IsCharAlpha - 是否是個字母
阿新 • • 發佈:2018-12-18
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; procedureButton1Click(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.