1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
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; ...“
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.
[[Category:String]]
;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.
[[Category:String]]
