Sysutils. strupper, sysutils. strlower

Strupper and strlower are case-sensitive functions for converting pchar strings.

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; button3: tbutton; Procedure button1click (Sender: tobject); Procedure button2click (Sender: tobject); Procedure button3click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} procedure tform1.button1click (Sender: tobject); const arr: array [0 .. 3] of char = 'abcd'; begin strlower (ARR); showmessage (ARR); {ABCD} strupper (ARR); showmessage (ARR); {ABCD} end; procedure tform1.button2click (Sender: tobject); var P: pchar; begin getmem (p, 18); strcopy (p, 'in case of Delphi blog'); strlower (P ); showmessage (p); {in case of Delphi blog} strupper (p); showmessage (p); {in case of Delphi blog} freemem (p); end; Procedure tform1.button3click (Sender: tobject); var P, PR: pchar; begin P: = pchar (stringofchar (#0, 18); strcopy (p, 'in case of Delphi blog '); strlower (p); showmessage (p); {in case of Delphi blog} strupper (p); showmessage (p); {in case of Delphi blog} stricomp (); strlcomp (); strlicomp () end; end.
 
   
 

Directory of common functions under the sysutils Unit