StrComp

Porovná dva řetězce.

Deklarace

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

Režim

Windows, Reálný, Chráněný

Návratová hodnota

<0   jestliže Str1 < Str2
=0   jestliže Str1 = Str2
>0   jestliže Str1 > Str2

Poznámky

StrComp porovná Str1 se Str2.

Viz také

StrIComp

StrLComp

StrLIComp

Vzorový příklad

{StrComp.PAS}
{Vzorový příklad pro StrComp a StrlComp.}
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
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 := ' je menší než ' else
    if C > 0 then Result := ' je větší než ' else
      Result := ' je roven ';
  Writeln(S1, Result, S2);
end.