StrComp

Z Delphi & Pascal (česká wiki)

Verze z 8. 10. 2012, 17:02, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: unit string)

(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)

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

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.

Citováno z „https://trsek.com/pascal/index.php?title=StrComp&oldid=1663“

String