возможно глупый вопрос, но...

voice · May 2004

в дельфи я пишу:

type TMyType=(aaa,bbb,ccc)

procedure TForm1.MyProc;
AddEnum('TMyType', 'aaa, bbb, ccc');
AddMethod('function MyFunc(AVar: TMyType): integer', CallMethods)
end;

в скрипте:

begin
ShowMessage(MyFunc(aaa));
end.

при выполнении fsScript.Compile выдается ошибка (fsScript.ErrorMsg):
Incompatible types: 'Class TMyType', 'TMyType'

AlexTZ · May 2004

Типы надо добавлять в fsGlobalUnit - именно там они и ищутся при компиляции.

voice · May 2004

а как быть с многопоточностью?
т.е. у меня в программе создается несколько потоков. В каждом есть компонент fsScript
при создании каждого потока выполняется процедура по заполнению этого fsScript'а одинаковыми процедурами и функциями.
Если сделать это один раз с fsGlobalUnit, то как в CallMethods узнать, из какого именно fsScript'а вызвалась эта функция?

AlexTZ · May 2004

Процедуры и функции - пожалуйста, можно добавлять в каждый TfsScript. Типы - только в fsGlobalUnit.

voice · May 2004

Вы меня не правильно поняли

(я сложный пример привел

)
Допустим, у меня есть пара fsScript
как можно добавить функции и процедуры в fsGlobalUnit, чтобы при вызове функции CallMethods я мог узнать, из какого именно fsScript это пришло и в зависимости от этого менять результат этого CallMethods?
например:

procedure MyProc;
begin
with fsGlobalUnit do
   begin
   AddMethod('function...........', CallMethods);
   AddMethod('procedure...........', CallMethods);
   ...................
   end;
end;

function CallMethods(.....): Variant;
begin
if MethodName='MYFUNCTION' then
   begin
   if <...> = fsScript1 then   //   <-------
      Result:='aaa'
      else Result:='bbb';
   end;
...................
end;

AlexTZ · May 2004

Это невозможно.

возможно глупый вопрос, но...

Комментарии

Оставить комментарий