[Overview][Procedures and functions][Index] |
Compare 2 null-terminated strings, case insensitive.
Source position: strings.pp line 55
function stricomp( |
str1: pchar; |
str2: pchar |
):SizeInt; |
Compares the null-terminated strings S1 and S2, ignoring case. The result is
None.
|
Compare limited number of characters of 2 null-terminated strings |
|
|
Compare 2 null-terminated strings, case sensitive. |
|
|
Compare limited number of characters in 2 null-terminated strings, ignoring case. |
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.