C++ 中代参数的宏怎样转成pascal

#define dl_devclass(i) ((i) & 0xFF00)

#define dl_devmodel(i) ((i) & 0x00FF)

如上的 C＋＋代码在pascal中怎么写？


[解决办法]
写成函数
function dl_devclass(i:integer):integer
begin
result := i and $FF00
end;
function dl_dl_devmodel(i:integer):integer
begin
result := i and $00FF
end;