如何从Delphi中注册Lua userdata？

在开始时,这种类型应该具有Lua可访问的三个函数：

>创建此类变量的新函数.
>一个getdate函数.
>和一个setdate函数.

最后这个小Lua脚本应该工作：

DT = DateTime.new()
DT:setdate(1,1,2011)
day,month,year = DT:getdate()
print("Day: " .. day .. " Month: " .. month .." Year: " .. year)

我试图自己实现它(使用Programming in Lua书)但我收到一个错误说：_尝试在第2行索引全局’DT'(用户数据值)_我可能在用户数据注册时出错了但是我是无法找到错误.

我希望你能帮助我找到它,这是我已经得到的：

Const
  MetaPosDateTime = 'DateTime';

Type
  tLuaDateTime = tDateTime;
  pLuaDateTime = ^tLuaDateTime;

  Function newdatetime(aState : pLua_State) : longint; cdecl;
  Var
    NewData : pLuaDateTime;
  Begin
    Result := 0;
    NewData := lua_newuserdata(aState,SizeOf(tLuaDateTime)); 
    NewData^ := now; 
    luaL_newmetatable(aState,MetaPosDateTime);
    lua_setmetatable(aState,-2);    
    Result := 1;
  End;

  Function setdate(aState : pLua_State) : longint; cdecl;
  Var
    DT : pLuaDateTime;
    ParamType : integer;
    day,year : lua_Integer;
  Begin
    Result := 0;
    DT := luaL_checkudata(aState,MetaPosDateTime);
    luaL_argcheck(aState,DT <> Nil,'DataTime expected');
    ParamType := lua_type(aState,2); 
    If (ParamType = LUA_TTABLE) Then 
      Begin
        { GetData from Table }
      End
    Else
      Begin // param order must be: day,year
        day := luaL_checkinteger(aState,2);
        month := luaL_checkinteger(aState,3);
        year := luaL_checkinteger(aState,4);
      End;
    DT^:= EncodeDate(year,day);
  End;

  Function getdate(aState : pLua_State) : longint; cdecl;
  Var
    DT : pLuaDateTime;
    Day,Month,Year : Word;
  Begin
    DT := luaL_checkudata(aState,'DataTime expected');
    DecodeDate(DT^,Year,Day);
    lua_pushinteger(aState,Month);
    lua_pushinteger(aState,Year);
  End;

Procedure RegisterDateTime(aState : pLua_State; aName: string);
Var
  Funcs : packed Array[0..3] of luaL_reg;
Begin
  Funcs[0].name := 'new';
  Funcs[0].func := newdatetime;
  Funcs[1].name := 'setdate';
  Funcs[1].func := setdate;
  Funcs[2].name := 'getdate';
  Funcs[2].func := getdate;
  Funcs[3].name := Nil;
  Funcs[3].func := Nil;
  luaL_register(aState,PAnsiChar(aName),Funcs[0]);
End;

因为我不确定luaL_register函数(它只能通过创建一个必须用require调用的库来工作吗？)我还试图用这个替换RegisterDateTime函数：

Type
  tLuaFuncDef = Record
    FuncName : string;
    Func : Lua_CFunction;
  End;

tLuaFuncList = Array of tLuaFuncDef;

Procedure RegisterLuaObject(aState : pLua_State; aObjectName: string; aFuncList: tLuaFuncList);
Var
  i : Integer;
Begin
  If (aObjectName = '') Or (High(aFuncList) < 0) Then
    Exit;

  lua_newtable(aState); 
  For i := Low(aFuncList) To High(aFuncList) Do 
    If Assigned(aFuncList[i].Func) And Not (aFuncList[i].FuncName = '') Then
      Begin
        lua_pushcfunction(aState,aFuncList[i].Func);
        lua_setfield(aState,-2,pAnsiChar(aFuncList[i].FuncName));
      End;
  lua_SetGlobal(aState,pAnsiChar(aObjectName));
End;

Procedure RegisterDateTime(aState : pLua_State,aName: string);
Var
  FuncList : tLuaFuncList;
Begin
  SetLength(FuncList,3);
  FuncList[0].FuncName := 'new';
  FuncList[0].Func := newdatetime;
  FuncList[1].FuncName := 'setdate';
  FuncList[1].Func := setdate;
  FuncList[2].FuncName := 'getdate';
  FuncList[2].Func := getdate;
  RegisterLuaObject(aState,aName,FuncList);
End;

不幸的是,两个版本的RegisterDateTime的效果(errormessage;))是相同的.在脚本启动之前,我们在Delphi程序中直接调用它们(我通过在“RegisterDateTime”和“newdatetime”中设置断点来确保这一点.这两个函数都按此顺序调用.所以我的错误必须是这两个函数中的一个.I我几乎可以肯定这是一件简单的事情,但我会盲目地看到它.:(