Winapi character and string functions (7): ischarlower-whether it is a lowercase letter

Unit unit1; interfaceuses 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 upload (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: = ischarlower (C ); showmessage (booltostr (B, true); {false} end; Procedure tform1.button2click (Sender: tobject); var C: Char; B: bool; begin C: = #97; {A} B: = ischarlower (c); showmessage (booltostr (B, true); {true} end; Procedure tform1.button3click (Sender: tobject); var C: Char; b: bool; begin C: = #48; {0} B: = ischarlower (c); showmessage (booltostr (B, true); {false} end; procedure tform1.button4click (Sender: tobject); var C: Char; B: bool; begin C: = #13; {enter key} B: = ischarlower (C ); showmessage (booltostr (B, true); {false} end; Procedure tform1.button5click (Sender: tobject); var C: widechar; B: bool; begin C: =# 19975; {tens of thousands} B: = ischarlower (c); showmessage (booltostr (B, true); {false} end; end.