Функция StrLIComp

Сравнивает две строки до определенной позиции, не принимая во внимание разницу в регистрах.

Объявление:

Function StrLIComp(Str1, Str2 : PChar; MaxLen : Word) : Integer;

Режим: Windows,  Protected,  Real

Замечания:
Функция StrLIComp сравнивает строку Str1 со строкой Str2 до заданной позиции MaxLen, не принимая во внимания разницу в регистрах. Возвращаемое значение - такое же, как и у функции StrComp.

Пример программы: strcomp.pas

Код примера

 {StrComp.PAS}
 
 { Пример программы для функций StrComp и StrlComp }
 
 Uses Strings, WinCrt;
 
 Var C : Integer;
 Result : PChar;
 S1, S2 : Array [0..79] Of Char;
 
 Begin
 ReadLn(S1);
 ReadLn(S2);
 C:=StrComp(S1, S2);
 If C < 0 Then Result:=' меньше, чем ' Else
 If C > 0 Then Result:=' больше, чем ' Else
 Result:=' равно ';
 WriteLn(S1, Result, S2);
End.