1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Vytvorená stránka „Porovná dva řetězce. ;Deklarace function StrComp(Str1, Str2 : PChar): Integer; ;Režim :Windows, Reálný, Chráněný ;Návratová hodnota <0 jestliže Str1 <...“
Porovná dva řetězce.
;Deklarace
function StrComp(Str1, Str2 : PChar): Integer;
;Režim
:Windows, Reálný, Chráněný
;Návratová hodnota
<0 jestliže Str1 < Str2
=0 jestliže Str1 = Str2
>0 jestliže Str1 > Str2
;Poznámky
:StrComp porovná Str1 se Str2.
;Viz také
:[[StrIComp]]
:[[StrLComp]]
:[[StrLIComp]]
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 StrComp(Str1, Str2 : PChar): Integer;
;Režim
:Windows, Reálný, Chráněný
;Návratová hodnota
<0 jestliže Str1 < Str2
=0 jestliže Str1 = Str2
>0 jestliže Str1 > Str2
;Poznámky
:StrComp porovná Str1 se Str2.
;Viz také
:[[StrIComp]]
:[[StrLComp]]
:[[StrLIComp]]
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]]
