StrLComp

   

Declaration:

Function StrLComp (S1,S2 : PChar; L : Longint) : Longint;

Description:

Compares maximum L characters of the null-terminated strings S1 and S2.

The result is

• A negative Longint when S1<S2.
• 0 when S1=S2.
• A positive Longint when S1>S2.

Errors:

None.

See also:

StrComp, StrIComp, StrLIComp

Example

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.