发一个在Delphi中使用的memcmp和C中使用的memcmp函数的参数和返回值是完全一样的。

Question

//Delphi模拟c语言的memcmp函数。(返回值和c完全一样）
function  memcmp(cs,ct:Pointer; count:Cardinal):Integer;
var
    su1,su2:PByte;
begin
    su1 := cs;
    su2 := ct;
    while 0<count do
        begin
        Result:=su1^-su2^;
        if Result<>0 then
            Break;
        Dec(count);
        Inc(su1);
        Inc(su2);
        end;
end;

Answer 1

胡说八道。返回值就不一样不信你试试 cs:='iocn' ct:='level' count:=5

Answer 2

正确的返回值是FFFFFFFF   上面测试的返回值是FFFFFFFD