Delphi with Lua5.1.3

Delphi with Lua5.1.3"/>

Delphi with Lua5.1.3

下载地址:

Delphi:

usesLua, LuaLib;typeTMyLua = class(TLua)publishedfunction HelloWorld(LuaState: TLuaState): Integer;end;function TMyLua.HelloWorld: Integer; varArgCount: Integer;I: integer; beginwriteln('Delphi: Hello World');ArgCount := Lua_GetTop(LuaState);writeln('Arguments: ', ArgCount);for I := 1 to ArgCount dowriteln('Arg1', I, ': ', Lua_ToInteger(LuaState, I));// Clear stackLua_Pop(LuaState, Lua_GetTop(LuaState));// Push return valuesLua_PushInteger(LuaState, 101);Lua_PushInteger(LuaState, 102);Result := 2; end;varMyLua: TLua;beginMyLua := TMyLua.Create;MyLua.DoFile('Helloworld.lua');MyLua.Free; end;

helloworld.lua:

print("LuaDelphi Test");

p1,p2 = HelloWorld(1,2,3)

print "Results:";

print (p1);

print (p2);