FastScript. Доступ к экземпляру RTTI
Добрый день.
Добавляю методы способом из документации:
fsRTTIModules.Add(TFunction);
но мне надо в коде обратится к экземпляру созданного при добавлении (fsRTTIModules.Add) класса TFunction, как это можно сделать?
По коду добавление происходит здесь:
procedure TfsScript.AddRTTI;
var
i: Integer;
rtti: TfsRTTIModule;
obj: TClass;
begin
if FRTTIAdded then Exit;
AddedBy := TObject(1); // do not clear
for i := 0 to FRTTIModules.Count - 1 do
begin
obj := TClass(FRTTIModules[i]);
rtti := TfsRTTIModule(obj.NewInstance);
rtti.Create(Self);
Add('', rtti);
end;
AddedBy := nil;
FRTTIAdded := True;
end;
добавляем в TfsScript.FItems (private), как его использовать дальше - не понятно
может кто подскажет?
доступ к экземпляру нужен для того, чтобы почистить объекты, которые будут созданы при использовании методов класса (кеши) перед открытием следующего отчета