delphi - 如何从 Lua 调用的 Delphi 函数中获取结果

Question

我正在 Delphi 中创建一个函数，以便能够与 Lua 一起使用它。我已经成功创建了一个过程(或一个没有结果的函数)并且它运行完美。问题是现在我想将该函数的结果(不再是过程)从 Delphi 获取到 Lua 中。我已经阅读了一些代码，但无法使其工作。

我的函数如下所示:

function TLuaScripter.getsetting(LuaState: TLuaState):TluaState;
var
path,stri: string; i:integer;
begin           //getsetting('Targeting/TargetingEnabled')

 path := Lua_ToString(LuaState, 1); //we get the string 'Targeting/..." 

 Lua_Pop(LuaState,1); //we put it in stack (so we can clean it)

 stri:= tree.GETsetting(path); //this function gets, for example "No"

 lua_pushlstring(LuaState,Pansichar(ansistring(stri)),length(stri)); //I pass it to the lua stack

 //showmessage(Lua_ToString(LuaState,1));--> this shows the result I need in a msgbox

 result:= LuaState;
end;

现在如果我在我的 Lua 控制台中使用

getsetting('Targeting/TargetingEnabled')

我能够在 msgbox 中获取结果(取消注释“Showmessage...”)，但该函数不会在 Lua 中返回任何内容!如果我写

print(getsetting('Targeting/TargetingEnabled'))

我在 Lua 中得到一个 Nil 值。

Answer 1

它会完美地配合这个。我们刚刚将结果添加为整数和“result:=1”

function TLuaScripter.getsetting(LuaState: TLuaState): integer;
var
  path,stri: string;
  i: integer;
begin           //getsetting('Targeting/TargetingEnabled')
  path := Lua_ToString(LuaState, 1);
  stri:= tree.GETsetting(path);
  lua_pushlstring(LuaState,Pansichar(ansistring(stri)),length(stri));
  result:= 1;
end;