{"id":377,"date":"2009-05-08T12:48:00","date_gmt":"2009-05-08T04:48:00","guid":{"rendered":""},"modified":"2013-11-17T19:26:15","modified_gmt":"2013-11-17T11:26:15","slug":"delphi-2009%e6%96%b0%e5%a2%9e%e5%8d%95%e5%85%83character","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/377.html","title":{"rendered":"Delphi 2009\u65b0\u589e\u5355\u5143Character"},"content":{"rendered":"<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n{Character.ToUpper}\u5b57\u7b26\u4e32\u8f6c\u6362\u6210\u5927\u5199\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nc: Char;\r\nstr: string;\r\nbegin\r\nc := ToUpper('a');\r\nstr := ToUpper('Delphi');\r\nShowMessageFmt('%s, %s', &#x5B;c, str]); {A, DELPHI}\r\nend;\r\n\r\n{Character.ToLower}\u5b57\u7b26\u4e32\u8f6c\u6362\u6210\u5c0f\u5199\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\nc: Char;\r\nstr: string;\r\nbegin\r\nc := ToLower('A');\r\nstr := ToLower('Delphi');\r\nShowMessageFmt('%s, %s', &#x5B;c, str]); {a, delphi}\r\nend;\r\n\r\nIsLetter: {\u662f\u5426\u662f\u4e2a\u5b57\u6bcd; \u8303\u56f4 A..Z \u4e0e a..z}\r\nIsUpper: {\u662f\u5426\u662f\u4e2a\u5927\u5199\u5b57\u6bcd; \u8303\u56f4 A..Z}\r\nIsLower: {\u662f\u5426\u662f\u4e2a\u5c0f\u5199\u5b57\u6bcd; \u8303\u56f4 a..z}\r\nIsDigit: {\u662f\u5426\u662f\u4e2a\u5341\u8fdb\u5236\u6570\u5b57; \u8303\u56f4 0..9}\r\nIsNumber: {\u662f\u5426\u662f\u4e2a\u6570\u5b57\u7b26\u53f7; \u8303\u56f4\u5305\u62ec 0..9, \u8fd8\u6709 ASCII \u7801\u4e2d\u7684 178\u3001179\u3001185\u3001188\u3001189\u3001190 \u7b49}\r\n\r\n{IsLetter: \u662f\u5426\u662f\u4e2a\u5b57\u6bcd}\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nb1,b2,b3: Boolean;\r\nbegin\r\nb1 := IsLetter('A'); {\u662f}\r\nb2 := IsLetter('a'); {\u662f}\r\nb3 := IsLetter('9'); {\u5426}\r\nShowMessageFmt('%s,%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);\r\n{True,True,False}\r\n\r\nb1 := IsLetter('D2009', 1);\r\nb2 := IsLetter('D2009', 2);\r\nShowMessageFmt('%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True)]);\r\n{True,False}\r\nend;\r\n\r\n{IsUpper: \u662f\u5426\u662f\u4e2a\u5927\u5199\u5b57\u6bcd}\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\nb1,b2,b3: Boolean;\r\nbegin\r\nb1 := IsUpper('A'); {\u662f}\r\nb2 := IsUpper('a'); {\u5426}\r\nb3 := IsUpper('9'); {\u5426}\r\nShowMessageFmt('%s,%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);\r\n{True,False,False}\r\n\r\nb1 := IsUpper('Delphi', 1);\r\nb2 := IsUpper('Delphi', 2);\r\nShowMessageFmt('%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True)]);\r\n{True,False}\r\nend;\r\n\r\n{IsLower: \u662f\u5426\u662f\u4e2a\u5c0f\u5199\u5b57\u6bcd}\r\nprocedure TForm1.Button3Click(Sender: TObject);\r\nvar\r\nb1,b2,b3: Boolean;\r\nbegin\r\nb1 := IsLower('A'); {\u5426}\r\nb2 := IsLower('a'); {\u662f}\r\nb3 := IsLower('9'); {\u5426}\r\nShowMessageFmt('%s,%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);\r\n{False,True,False}\r\n\r\nb1 := IsLower('Delphi', 1);\r\nb2 := IsLower('Delphi', 2);\r\nShowMessageFmt('%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True)]);\r\n{False,True}\r\nend;\r\n\r\n{IsDigit: \u662f\u5426\u662f\u4e2a\u5341\u8fdb\u5236\u6570\u5b57}\r\nprocedure TForm1.Button4Click(Sender: TObject);\r\nvar\r\nb1,b2,b3: Boolean;\r\nbegin\r\nb1 := IsDigit('A'); {\u5426}\r\nb2 := IsDigit('\u00bd'); {\u5426}\r\nb3 := IsDigit('9'); {\u662f}\r\nShowMessageFmt('%s,%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);\r\n{False,False,True}\r\n\r\nb1 := IsDigit('D2009', 1);\r\nb2 := IsDigit('D2009', 2);\r\nShowMessageFmt('%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True)]);\r\n{False,True}\r\nend;\r\n\r\n{IsNumber: \u662f\u5426\u662f\u4e2a\u6570\u5b57\u7b26\u53f7}\r\nprocedure TForm1.Button5Click(Sender: TObject);\r\nvar\r\nb1,b2,b3: Boolean;\r\nbegin\r\nb1 := IsNumber('A'); {\u662f}\r\nb2 := IsNumber('\u00bd'); {\u662f}\r\nb3 := IsNumber('9'); {\u5426}\r\nShowMessageFmt('%s,%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);\r\n{False,True,True}\r\n\r\nb1 := IsNumber('123\u00b9\u00b2\u00b3\u00bc\u00bd\u00be', 1);\r\nb2 := IsNumber('123\u00b9\u00b2\u00b3\u00bc\u00bd\u00be', 4); {\u8fd9\u91cc\u7684 9 \u4e2a\u5b57\u7b26\u5168\u90fd\u590d\u5408}\r\nShowMessageFmt('%s,%s', &#x5B;BoolToStr(b1,True),BoolToStr(b2,True)]);\r\n{True,True}\r\nend;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>{Character.ToUpper}\u5b57\u7b26\u4e32\u8f6c\u6362\u6210\u5927\u5199 procedure TForm1.Button1Cli [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-377","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/377","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=377"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/377\/revisions"}],"predecessor-version":[{"id":4765,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/377\/revisions\/4765"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=377"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=377"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=377"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}