IsLetter: {是否是個字母; 范圍 A..Z 與 a..z} IsUpper: {是否是個大寫字母; 范圍 A..Z} IsLower: {是否是個小寫字母; 范圍 a..z} IsDigit: {是否是個十進制數字; 范圍 0..9} IsNumber: {是否是個數字符號; 范圍包括 0..9, 還有 ASCII 碼中的 178、179、185、188、189、190 等} 測試代碼:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.dfm}uses Character;{IsLetter: 是否是個字母} procedure TForm1.Button1Click(Sender: TObject); varb1,b2,b3: Boolean; beginb1 := IsLetter('A'); {是}b2 := IsLetter('a'); {是}b3 := IsLetter('9'); {否}ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);{True,True,False}b1 := IsLetter('D2009', 1);b2 := IsLetter('D2009', 2);ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);{True,False} end;{IsUpper: 是否是個大寫字母} procedure TForm1.Button2Click(Sender: TObject); varb1,b2,b3: Boolean; beginb1 := IsUpper('A'); {是}b2 := IsUpper('a'); {否}b3 := IsUpper('9'); {否}ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);{True,False,False}b1 := IsUpper('Delphi', 1);b2 := IsUpper('Delphi', 2);ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);{True,False} end;{IsLower: 是否是個小寫字母} procedure TForm1.Button3Click(Sender: TObject); varb1,b2,b3: Boolean; beginb1 := IsLower('A'); {否}b2 := IsLower('a'); {是}b3 := IsLower('9'); {否}ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);{False,True,False}b1 := IsLower('Delphi', 1);b2 := IsLower('Delphi', 2);ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);{False,True} end;{IsDigit: 是否是個十進制數字} procedure TForm1.Button4Click(Sender: TObject); varb1,b2,b3: Boolean; beginb1 := IsDigit('A'); {否}b2 := IsDigit('?'); {否}b3 := IsDigit('9'); {是}ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);{False,False,True}b1 := IsDigit('D2009', 1);b2 := IsDigit('D2009', 2);ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);{False,True} end;{IsNumber: 是否是個數字符號} procedure TForm1.Button5Click(Sender: TObject); varb1,b2,b3: Boolean; beginb1 := IsNumber('A'); {是}b2 := IsNumber('?'); {是}b3 := IsNumber('9'); {否}ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);{False,True,True}b1 := IsNumber('123123???', 1);b2 := IsNumber('123123???', 4); {這里的 9 個字符全都復合}ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);{True,True} end;end.

總結

以上是生活随笔為你收集整理的Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumber的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。