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

Question

#define dl_devclass(i)  ((i) & 0xFF00)#define dl_devmodel(i)  ((i) & 0x00FF)如上的 C＋＋代码在pascal中怎么写？

Answer 1

写成函数
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;

Answer 2

TO:灼
  #define dl_devclass(i)  ((i) & 0xFF00) 
function dl_devclass(i:integer):integer 
begin 
  result := i and $FF00 
end; 
 怎知i是integer类型？？？？？