Получение указателя на объект TfsScript

raybot

Привет !

Нетривиальная проблемка.

Могу ли я находясь в скрипте получить ссылку на объект TfsScript в котором выполняется этот скрипт.
Нужно для выполнения скрипта из скрипта из скрипта на общем поле переменных

Georgy

Такой вариант устраивает?

with fsGlobalUnit.AddClass(TfsScript, 'TComponent') do
begin
  AddProperty('Parent', 'TfsScript', GetProp, SetProp);
  AddMethod('procedure Clear', CallMethod);
  AddMethod('procedure Execute', CallMethod);
  AddMethod('function Compile: Boolean', CallMethod);
  AddMethod('function Run: Boolean', CallMethod);
end;
Script := TfsScript.Create(Self);
fsGlobalUnit.AddObject('fsGlobalUnit', fsGlobalUnit);
fsGlobalUnit.AddObject('Script', Script);

raybot

Да, спасибо огромное !!!