3
{ This program demonstrates the AnsiStrUpper function }
7
Procedure Testit (S : Pchar);
10
Writeln (S,' -> ',AnsiStrUpper(S))
14
Testit('AN UPPERCASE STRING');
15
Testit('Some mixed STring');
16
Testit('a lowercase string');
b'\\ No newline at end of file'