Язык:
Русский
English
StrComp (функция) (модуль Strings)
Сравнивает две строки.
Объявление
Function StrComp(Str1, Str2 : PChar) : Integer;
Режим
Windows, Real, Protected
Возвращаемое значение
< 0, если Str1 < Str2
= 0, если Str1 = Str2
> 0, если Str1 > Str2
Замечания
Функция StrComp сравнивает строку Str1 со строкой Str2. Возвращаемое значение меньше нуля если Str1 < Str2, равно нулю, если Str1 = Str2 или больше нуля, если Str1 > Str2.
Смотри также
Пример
Язык:
Русский
English
uses Strings, Crt;
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.
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.