StrLComp

Z Delphi & Pascal (česká wiki)

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

Porovná dva řetězce, a to až do maximální délky.

Deklarace

function StrLComp(Str1, Str2: PChar; MaxLen: Word): Integer;

Režim: Windows, Reálný, Chráněný

Poznámky: StrLComp porovná Str1 se Str2 ,a to až do maximální délky MaxLen znaků. Vrácená hodnota je stejná jako StrComp.

Viz také: StrComp

Vzorový příklad

{StrLComp.PAS}
{Vzorový příklad pro funkci StrLComp.}
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
var
  Result: PChar;
  S1, S2: array[0..79] of Char;
begin
  Readln(S1);
  Readln(S2);
  if StrLComp(S1, S2, 5) = 0 then
    Result := 'shodných'
  else
    Result := 'rozdílných';
  Writeln('Prvních pět znaků je ', Result);
end.

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

String