请教一个C代码转换成delphi的简单问题 ( 积分: 50 )

L

liaopeic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-22

• #1

C的代码为：
void KbcWait4IBE()
{
DWORD dwRegVal=0;
do
{
GetPortVal(0x64,&dwRegVal,1);
}
while(dwRegVal & 0x00000002);
}

由于是菜鸟一个，请问高手如何转换delphi的代码。
小弟在此先拜谢了！

 

X

[xiaopei]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-22

• #2

procedure KbcWait4IBE()
var
dwRegValWORD;
begin
dwRegVal := 0;
repeat
GetPortVal($64,@dwRegVal,1);
until dwRegVal and $00000002;
end;

 

L

liaopeic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-22

• #3

貌似还差一点点才能编译通过。。。

 

X

[xiaopei]

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-22

• #4

procedure KbcWait4IBE()
var
dwRegValWORD;
begin
dwRegVal := 0;
repeat
GetPortVal($64,@dwRegVal,1);
until ((dwRegVal and $00000002) <> 0);
end;

 

L

liaopeic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-23

• #5

接受答案了.