Unit 'sysutils' Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] [#rtl]

strlcomp

Compare limited number of characters of 2 null-terminated strings.

Declaration

Source position: syspchh.inc line 26

function StrLComp(

  str1: PAnsiChar;

  str2: PAnsiChar;

  l: SizeInt

):SizeInt;

function strlcomp(

  str1: PWideChar;

  str2: PWideChar;

  l: SizeInt

):SizeInt;

Description

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

Errors

None.

See also

StrComp

  

Compare 2 null-terminated strings, case sensitive.

StrIComp

  

Compare 2 null-terminated strings, case insensitive.

StrLIComp

  

Compare limited number of characters in 2 null-terminated strings, ignoring case.

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.

Documentation generated on: Oct 02 2024