StrLIComp

Z Delphi & Pascal (česká wiki)

Skočit na navigaci Skočit na vyhledávání

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

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=StrLIComp&oldid=1683“

String