问：如何把里面的H转化成PAS？我刚来第一次问，给一半分

Question

//
//  你试试看下面的代码 :)
//  另及：这些代码定义得很奇怪，有点混乱哦
//unit FromEagleYin;interface
uses
  Windows;type
  AGSIVTR   = dword;
  AGSIADDR  = dword;
  AGSITIMER = dword;  AGSICALLBACK  = procedure();type
  PAgsiDlgDat = ^AgsiDlgDat;
  AgsiDlgDat  = record
    iOpen   : dword;
    hw      : HWND;
    wp      : function ( hw:HWND; msg:UINT; wp:WPARAM; lp:LPARAM ):boolean;
    rc      : TRect;
    Update  : procedure();
    Kill    : procedure( pM:PAgsiDlgDat );
    vp      : pointer;
  end;// AgsiDlgDat  PAgsiDynaM = ^AgsiDynaM;
  AgsiDynaM = record
    nDelim  : integer;
    szText  : pchar;
    fp      : procedure( pM:PAgsiDynaM );
    nID     : dword;
    nDlgID  : dword;
    pDlg    : PAgsiDlgDat;
  end;// AgsiDynaM
implementationend.

Answer 1

不是吧大哥，CSDN没有这么智能化的，需要你手动给分哦，具体方法：
登录后选择 系统功能 -> 我的问题,然后可以看到问题列表,点击这个问题后面的"管理",出来的页面就可以给分了,虽然是小小的5分，对我来说很珍贵，呵呵

Answer 2

这么说来，我当前的积分是10分？我到处找说明也没有找到新用户注册时是多少分。
我给分时已出了全部的10分，也不想修改，就10分吧。我自己想法去挣。eagleyin，您是高人，还请帮忙：typedef enum {
  AGSIBYTE = 1,
  AGSIWORD = 2,
  AGSILONG = 4,
  AGSIBIT  = 5,
  AGSIVTRCHAR = 10,
  AGSIVTRWORD = 11,
  AGSIVTRLONG = 12,
  AGSIVTRFLOAT = 13
} AGSITYPE;AGSIEXPORT DWORD    AGSIAPI AgsiEntry (DWORD nCode, void *vp);
AGSIEXPORT AGSIVTR    AGSIAPI AgsiDefineVTR(const char* pszVtrName, AGSITYPE eType, DWORD dwValue);谢谢。

Answer 3

//
//  a1212:你给的信息不全啊，我还需要：
//  AGSIEXPORT 和 AGSIPAI 的定义，请尽快提供:)
//  你没有分的话可以直接联系我:)
//  电子邮件：[email protected]，
//  QQ：6331158；
//
//  暂时翻译代码如下：
//
unit Unit2;
interface
//  如果你不是使用 DELPHI6 请注释掉下面的条件编译指令
// 具体原因参见 AGSITYPE 定义部分
{$DEFINE DELPHI6}uses
  Windows;type
  AGSIVTR  = dword;type
//
//  这里用这个条件编译指令为的是保证编译器的兼容性：
//  从 DELPHI 6 开始，枚举类型支持显式指定枚举值，但是
//  早期的 DELPHI 版本不支持这个功能，所以只好用一些
//  "无用"的枚举值来填充枚举位置，比如 AGSI_DUMMY 什么的
//
{$IFDEF DELPHI6}
  AGSITYPE  = (
    AGSIBYTE    = 1,
    AGSIWORD    = 2,
    AGSILONG    = 4,
    AGSIBIT     = 5,
    AGSIVTRCHAR = 10,
    AGSIVTRWORD = 11,
    AGSIVTRLONG = 12,
    AGSIVTRFLOAT= 13
  );
{$ELSE}
  AGSITYPE  = (
    AGSI_DUMMY0,  //  = 0
    AGSIBYTE,     //  = 1
    AGSIWORD,     //  = 2
    AGSILONG,     //  = 4
    AGSIBIT,      //  = 5
    AGSI_DUMMY6,  //  = 6
    AGSI_DUMMY7,  //  = 7
    AGSI_DUMMY8,  //  = 8
    AGSI_DUMMY9,  //  = 9
    AGSIVTRCHAR,  //  = 10
    AGSIVTRWORD,  //  = 11
    AGSIVTRLONG,  //  = 12
    AGSIVTRFLOAT, //  = 13
  );
{$ENDIF}//
//  注意了，由于没有 AGSIEXPORT 和 AGSIPAI 的定义
//  所以以下翻译可能是错误的，呵呵
//
//  还有啊，如果你这两个函数是从OBJ文件里引入的，
//  请在下面函数定义的前面加入一行编译指令{$L 文件名.obj}
//  如果是从DLL文件里引入的呢，
//  那麽请改正在每个函数尾部的 '文件名.dll'
//
//
  function  AgsiEntry(
    nCode:dword;
    vp:pointer ):dword; external '文件名.dll';  function  AgsiDefineVTR(
    const pszVtrName:pchar;
    eType:AGSITYPE;
    dwValue:dword ):AGSIVTR; external '文件名.dll';implementationend.
//
//  另外，如果你需要的话，我可以给你一些分，呵呵
//

Answer 4

不好意思，忘记了一个 AGSI_DUMMY3