这句怎么翻译成DELPHI(50分)

杜

杜汉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #1

void KbcWait4IBE()
{
DWORD dwRegVal=0;
do
{
GetPortVal(0x64,&dwRegVal,1);
}
while(dwRegVal & 0x00000002);
}

 

杜

杜汉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #2

自己顶一下

 

杜

杜汉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #3

自己再顶一下

 

P

pascal!

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #4

procedure KbcWait4IBE();
var
DWORD dwRegVal;
begin
dwRegVal := 0;
repeat
GetPortVal(0x64,&dwRegVal,1);
until (dwRegVal and 0x00000002)<>0;
end;

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #5

楼上的，你懂不懂delphi语法哟
哪个
DWORD dwRegVal;
应该是
dwRegVal: DWORD;