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ž do maximální délky. ;Deklarace function StrLComp(Str1, Str2: PChar; MaxLen: Word): Integer; ;Režim :Windows, Reálný, Chráně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]]
:[[StrIComp]]
:[[StrLIComp]]
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.
[[Category:String]]
;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]]
:[[StrIComp]]
:[[StrLIComp]]
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.
[[Category:String]]
