Original C procedure Luaopen_IO (L); const char * buf = "var = 100"; Lua_Dostring (L, BUF); Lua_GETGLOBAL (L, "Var"); int var = Lua_tonumber (L, -1); assert (var = = 100); Lua_Close (L); corresponding PAS program var l: Lua_State; i: double; begin L: = Lua_Open; Lua_Dostring (L, 'VAR = 100'); Lua_GETGLOBAL (L, 'Var'); i: = Lua_tonumber (L, -1); Memo2.Lines.Add (INTTOSTR (Trunc (i))); Lua_Close (L); END;
