Zobrazení zdroje stránky 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.

[[Category:String]]