Question

C++代码转成delphi7.0代码

void SelMon() //选怪功能
{ // TODO: Add your control notification handler code here
//遍历 [i*4+0x44a9788] 数组
int* b8,*bc,*b380,*p1530;
float *b31c;
int* pb,*p2;
for (int i=0x44a9788;i<(0x44a9788+0x0000FFFF*4);i+=4)//每次增加4字节
{ pb=(int*)i;
b8=(int*)(*pb+0x8);
bc=(int*)(*pb+0xc);
b31c=(float*)(*pb+0x31c);//
b380=(int*)(*pb+0x380);
//if (([ecx+8]==0x2E )&&([ecx++0x31C]<=100)&&([ecx+380]==0))
p1530=(int*)0x44B33C8;
p1530=(int*)(*p1530+0x1478);
if ((*b8==0x2E )&&(*b31c<=200.00)&&(*b380==0))
{
//选怪[[0x5993E80]+1530 ]=*bc;优化改进 显示怪血条
p2=pb;

int selmonbase=*p2;
if (*p1530==0xFFFF) {
_asm
{
mov edi,selmonbase
mov edx,[edi]
push 0
push 1
push 0x44E
mov ecx,edi
mov edx,[edx+4]
call edx
}
} //end if
p1530=(int*)CurRoleBase;
p1530=(int*)(*p1530+0x1478);
*p1530=*bc;//写入下标
return ;
//
} // end if
}//end for
}
如果能够整个翻译更好，不能的话帮忙翻译下面两句，谢谢。
for (int i=0x44a9788;i<(0x44a9788+0x0000FFFF*4);i+=4)//每次增加4字节
if ((*b8==0x2E )&&(*b31c<=200.00)&&(*b380==0))

Answer 1

i:=0x44a9788;
while ( i<(0x44a9788+0x0000FFFF*4) ) do
begin

...

INC(i,4);
end;

if ( (b8^=0x2E) and (b31c^<=200) and (b380^=0) ) then
begin
end

Answer 2

莫非是反编译的代码？看样子for循环是遍历一个大小为2^16的int数组，起始地址是0x44a9788，int占据四个字节，所以每次增加四个字节。

追问

for (int i=0x44a9788;i<(0x44a9788+0x0000FFFF*4);i+=4)//每次增加4字节
if ((*b8==0x2E )&&(*b31c<=200.00)&&(*b380==0))
这是C++6.0的代码 想换成delphi7.0 这两句判断怎么写？

追答

不好意思，dephi没学过