Function StrLComp (S1,S2 : PChar; L : Longint) : Longint;
Compares maximum L characters of the null-terminated strings S1 and S2.
The result is
None.
Program Example8;
Uses strings;
{ Program to demonstrate the StrLComp function. }
Const P1 : PChar = 'This is the first string.';
P2 : PCHar = 'This is the second string.';
Var L : Longint;
begin
Write ('P1 and P2 are ');
If StrComp (P1,P2)<>0 then write ('NOT ');
write ('equal. The first ');
L:=1;
While StrLComp(P1,P2,L)=0 do inc (L);
dec(l);
Writeln (l,' characters are the same.');
end.