1 578
editací
Změny
Vytvorená stránka „Porovná dva řetězce bez ohledu na velikost písmen. ;Deklarace function StrIComp(Str1, Str2:PChar): Integer; ;Režim :Windows, Reálný, Chráněný ;Poznámky :[...“
Porovná dva řetězce bez ohledu na velikost písmen.
;Deklarace
function StrIComp(Str1, Str2:PChar): Integer;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:[[StrIComp]] porovná Str1 se Str2 bez uvažování velikosti písmen. Vrácená hodnota je stejná jako [[StrComp]].
;Viz také
:[[StrComp]]
:[[StrLComp]]
:[[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 StrIComp(Str1, Str2:PChar): Integer;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:[[StrIComp]] porovná Str1 se Str2 bez uvažování velikosti písmen. Vrácená hodnota je stejná jako [[StrComp]].
;Viz také
:[[StrComp]]
:[[StrLComp]]
:[[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]]