Winapi character and string function (4): charupperbuff-converts a specified number of characters in the buffer to uppercase.

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; Procedure submit (Sender: tobject ); end; var form1: tform1; implementation {$ R *. DFM} {pairs of character arrays, all conversions} procedure tform1.button1click (Sender: tobject); var Buf: array [0 .. 6] of char; begin Buf: = 'abcdefg'; charupperbuff (BUF, length (BUF); showmessage (BUF); {abcdefg} end; {convert only the first 3} procedure tform1.button2click (Sender: tobject); var Buf: array [0 .. 6] of char; begin Buf: = 'abcdefg'; charupperbuff (BUF, 3); showmessage (BUF); {abcdefg} end; {return value} procedure tform1.button3click (Sender: tobject); var Buf: array [0 .. 6] of char; num: integer; begin Buf: = 'abcdefg'; num: = charupperbuff (BUF, 4); showmessagefmt ('% s, % d ', [String (BUF), num]); {abcdefg, 4} end; {pair string} procedure tform1.button4click (Sender: tobject); var STR: string; begin STR: = 'abcdefg'; charupperbuff (@ STR [1], length (STR); showmessage (STR); {abcdefg} end; end.