3
{ This program demonstrates the AnsiCompareText function }
8
Procedure TestIt (S1,S2 : String);
13
R:=AnsiCompareText(S1,S2);
14
Write ('"',S1,'" is ');
20
Write ('larger than ');
25
Testit('One string','One smaller string');
26
Testit('One string','one string');
27
Testit('One string','One string');
28
Testit('One string','One tall string');
b'\\ No newline at end of file'