请问如何将此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;