Функция StrComp

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

Объявление:

 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.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.