3
{ This program demonstrates the AnsiStrLComp function }
7
Procedure TestIt (S1,S2 : Pchar; L : longint);
12
R:=AnsiStrLComp(S1,S2,L);
13
Write ('First ',L,' characters of "',S1,'" are ');
19
Write ('larger than ');
20
Writeln ('those of "',S2,'"');
24
Testit('One string','One smaller string',255);
25
Testit('One string','One String',4);
26
Testit('One string','1 string',0);
27
Testit('One string','One string.',9);
b'\\ No newline at end of file'