请教怎么将此C语句转换成DELPHI的

请问如何将此C语句转换成DELPHI的
int   cint(int   v)
{
        int   i;
        i   =   (v   > >   24)   &   0xFF;
        i   +=   (v   > >   8)   &   0xFF00;
        i   +=   (v   < <   8)   &   0xFF0000;
        i   +=   (v   < <   24)   &   0xFF000000;

        return   i;
}
int   main(int   argc,   char*   argv[])
{
        int   icard;
        char   scard[32]   =   " ";
        icard   =   3015445766;
        icard   =   cint(icard);
        sprintf(scard,   "%03d%05d ",   (icard   > >   16)   &   0xFF,   icard   &   0xFFFF);
        return   0;
}

谢谢了....

[解决办法]
> > shr
< < shl
移位运算嘛
& 用 And
v += 用 Inc(v, XX) or v := v + XX;
[解决办法]
function cint(v: Integer): Integer;
var
i: Integer;
begin
i := (v shr 24) and $FF;
i := i + (v shr 8) and $FF00;
i := i + (v shl 8) and $FF0000;
i := i + (v shl 24) and $FF000000;
Result := i;
end;