StrComp

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.