请FW帮助将下面代码修改成delphi.(100)

不知道下面的代码是用什么编写的?如果有请告诉下...谢谢了.主板集成的485，不支持流控的功能（即自动反转），同时收发，４８５本身为半双工，需要在软件里设定。outportb((base+4),(inportb(base+4) | 2)); /* Set RTS high to enable Driver ( disable Receiver ) */ while (flag) { /* --- Sending data --- */ } outportb((base+4),(inportb(base+4) & 0x0fd)); /* Set RTS low to disable Driver ( enable Receiver ) */ while (flag) { /* --- Receiving data --- */ }

C的,|=OR, &=AND,没什么特别的

谢谢.如果把他加入BUTTON按钮里,写哪个事件?

outportb((base+4),(inportb(base+4) or 2)); while (flag);outportb((base+4),(inportb(base+4) and 0x0fd));while (flag);改了后是这样吗?!

beginoutportb((base+4),(inportb(base+4) or 2)); while (flag);outportb((base+4),(inportb(base+4) and 0x0fd));while (flag);end;就行了吗?!

请告知.....先谢谢了.