3
{ This program demonstrates the AnsiStrComp function }
7
Procedure TestIt (S1,S2 : Pchar);
12
R:=AnsiStrComp(S1,S2);
13
Write ('"',S1,'" is ');
19
Write ('larger than ');
24
Testit('One string','One smaller string');
25
Testit('One string','one string');
26
Testit('One string','One string');
27
Testit('One string','One tall string');
b'\\ No newline at end of file'