Otevřít hlavní menu

StrLIComp

Verze z 8. 10. 2012, 16:54, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Vytvorená stránka „Porovná dva řetězce, a to až po maximální délku, bez rozlišování velikosti písmen. ;Deklarace function StrLIComp(Str1, Str2: PChar; MaxLen: Word): Integer; ...“)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)

Porovná dva řetězce, a to až po maximální délku, bez rozlišování velikosti písmen.

Deklarace
function StrLIComp(Str1, Str2: PChar; MaxLen: Word): Integer;
Režim
Windows, Reálný, Chráněný
Poznámky
StrLIComp porovná Str1 se Str2, a to až po maximální délku MaxLen znaků, bez rozlišování velikosti písmen.
Vrácená hodnota je stejná jako StrComp.
Viz také
StrComp
StrIComp
StrLComp


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.