请教Delphi执行Lua函数的问题，谢谢

yefengwz

lua_dofile(l, 'TestABC.Lua');
lua_dostring(l, 'Add(10, 10)');

在TestABC.Lua里面有Add函数的定义
定义如下：
function Add(x, y)
  return x + y
end

我要问的问题是，执行完“lua_dostring(l, 'Add(10, 10)');”这个函数，如何取得Add(10, 10)返回的值。谢谢

yefengwz

已想到办法解决，以下为解决办法，以提参考

TestABC.Lua的内容如下
TempValue = nil

function Add(x, y)
return x + y
end

function GetValue
return TempValue
end

delphi的代码就改为如下，就可以获得Add的返回值了
procedure TForm1.Button1Click(Sender: TObject);
var
l: p_lua_state;
Temp : String;
begin
l := lua_open();
lua_baselibopen(l);
lua_dofile(l, 'Test.Lua');
lua_dostring(l, 'TempValue = add(10, 10)');
lua_getglobal(L, 'GetValue');
lua_call(L, 0, 1);
Temp := string(lua_tostring(l, -1));
lua_close(l);
ShowMessage(Temp);
end;

sanikoyes

Test.Lua
function add(a, b)
  return a + b
end

Test.DPR
{$APPTYPE CONSOLE}
uses
  Lua;

var
  l: p_lua_State;
  sum: Integer;
begin
  l := lua_open();
  lua_dofile(l, 'Test.Lua'); // 执行 TEST.LUA
  lua_getglobal('add');     // 获取全局函数 add
  lua_pushnumber(100); // 参数一
  lua_pushnumber(200); // 参数二
  lua_pcall(l, 2, 1, 0);     // 调用脚本函数ADD，两个输入、一个输出
  sum := round(lua_tonumber(l, -1)); // 得到返回值
end.

Micheal_Xia

呵呵，楼主自问自答，可以说答的很精彩，其实Pascal里有着许多C的特性，在编程的时候多可以多用用C的一些习惯，某些时候会有事半功倍的效果。
楼上的方法虽也可以得到返回值，但是代码执行效率就不如楼主的了，呵呵。