Функция StrComp()

Модуль Strings

Сравнивает две строки.

Объявление:

Function StrComp(Str1, Str2 : PChar) : Integer;

Режим:

Windows,  Protected,  Real

Замечание:

Возвращаемое значение: < 0, если Str1 < Str2 = 0, если Str1 = Str2 > 0, если Str1 > Str2

Функция StrComp сравнивает строку Str1 со строкой Str2. Возвращаемое значение меньше нуля если Str1 < Str2, равно нулю, если Str1 = Str2 или больше нуля, если Str1 > Str2.

Пример:

 
 { Пример программы для функций 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.