AnsiStrLIComp
Riddle
AnsiStrIComp
Moduł: SysUtils
program Foo;
uses
SysUtils;
{$APPTYPE CONSOLE}
var
S1, S2: String;
begin
S1 := '4programmers';
S2 := '4programmers.net'
Writeln(AnsiStrLiComp(PChar(S1), PChar(S2), 16)); // Zobaczymy -1
S1 := '4pRoGrAmMeRs';
S2 := '4programmers.net'
Writeln(AnsiStrLiComp(PChar(S1), PChar(S2), 12)); // Zobaczymy 0
end.
Zobacz też: