Функции Lua

[apromix]

Если знает кто, как передать из Delphi в скрипт функцию, чтобы работало? Передавать переменные и считывать их значения получилось, но хочется иметь еще и свои функции Lua в скриптах, которые при обращенни к ним выполняли код Delphi и возвращали результат скрипту, в переменную скрипта для дальнейших вычислений скриптом. Спасибо.

[Вавел из ГМТУ]

Вроде как нельзя.. Да и непонятен замысел вобще.

[apromix]

// Сообщение
function LuaAlert(L: Plua_State): Integer; cdecl;
var
  I, N, K, FF: Integer;
  S: String;
  F: TSplitResult;
begin
  N := lua_gettop(L);
  for I := 1 to N do
  begin
    if (lua_isnumber(L, I) > 0) then
    begin
      K := round(lua_tonumber(L, I));
      Alert(K);
      Result := 0;
      Exit;
    end;
    S := lua_tostring(L, I);
    if (Pos(S, '|') > -1) then
    begin
      Randomize;
      F := Split(S, '|');
      FF := Random(High(F) + 1);
      if IsNumber(F[FF]) then Alert(StrToInt(F[FF])) else Alert(F[FF]);
      Result := 0;
      Exit;
    end;
  end;
  if (S = '') then Exit;
//  Alert(S);
  Result := 0;
end;

После регистрации в скрипте пишу Alert("что-то") и все пашет, сообщение выскакивает, как если бы было вызвано из программы. А вот мне нужно переменной в скрипте A передать значение ф-ции? Как такое сделать?

Для чего нужно? Скажем скрипт должен считать данные из зашифрованого файла в некую переменную в скрипте. Как подобное можно провернуть, если расшифровать файл может только сама программа? Может есть другой путь?

[russian-stalker]

Вам это надо?

function incA(lua_VM:Plua_State):Integer; cdecl;
var a:double;
begin
a:=lua_tonumber(lua_VM, 1);//Читаем первый аргумент функции
inc(a);//Прибавляем один
lua_pushnumber(luaVM, a);//Возвращаем значение функции
Result:= 1;
end;

lua:
a=incA(a)

[apromix]

Помогло. Огромное всем спасибо