c#代码转为delphi代码，请高手帮忙

[ZXYSOSO]

c#代码：

public static bool ReadPort(int nPort)
{
int nState=0;
int Ret;
Ret=__ReadPort(ref nState);
if (((nState >>nPort) &0x01) >0) --关键是这段转换成delphi 是怎样写的，0x01是１６进制
return true;
else
return false;

}

[ZXYSOSO]

up，自己顶一下

[三樱椒]

是 位操作符吗？ 不懂 高深

[ZXYSOSO]

是啊，高手在哪里？

[码农精神]

if (((nState >>nPort) &0x01) >0) delphi 写法 if ( (nState shr nPort) and $01)>0 then

[dai78]

看帮助，看那是什么操作符，就用Delphi中的操作符替换就可以了

[ICMGDCHN]

public static bool ReadPort(int nPort) { int nState=0; int Ret; Ret=__ReadPort(ref nState); if (((nState >>nPort) &0x01) >0) --关键是这段转换成delphi 是怎样写的，0x01是１６进制 return true; else return false; } function ReadPort(port:Integer); var nState:Integer; Ret:Integer; begin Ret := _ReadPort(nState); result := ((nState shr port) and $1)>0; end;