前辈们来帮我纠正一下

Question

procedure TMyForm.Button3Click(Sender: TObject);
var
  a : ^DWORD;
  b : DWORD;
begin
  a := Pointer(RoleBaseAdr);
  a := Pointer(a^+$68);
  b := a^;
如果我把这段话定意到函数单元比如
Function GetRoleExp: DWORD; 
var
  RoleBase: DWORD;
begin
  Try
    RoleBase := RDword(RoleBaseAdr);
    Result := RDword(RoleBase + $58);  
    except
    Result := 0;
  end;
end;我直接取 GetRoleExp 就可以读取到 应该怎么做我这里怎么写都读出来的函数为0

Answer 1

你把try except end去掉试试，如果出错了，你处理了错误，使它总是返回0.

Answer 2

Function GetRoleExp: DWORD;  
var
  RoleExp: DWORD;
begin
  Try
  asm
  mov eax,RoleBaseAdr
  mov eax,[eax]
  mov eax,[eax+$58]
  mov RoleExp,eax
  end;
  result:=RoleExp;
  except
  Result := 0;
  end;
end;