AddClass

vitek1

Как через fsGlobalUnit.AddClass добавить fsScript.AddClass? Пробовал как написано в справке, не получается

begin
  with fsGlobalUnit do 
  begin
    AddedBy := Self;
    with AddClass(TfsScript, 'TComponent') do  
      AddMethod('procedure AddMethod(const Syntax: String; 
                        CallEvent: TfsCallMethodEvent; const Category: String = ''; 
                        const Description: String = '')', CallMethod);
    AddedBy := nil;  
  end;
end;

function TForm1.CallMethod(Instance: TObject; ClassType: TClass;
                        const MethodName: String; var Params: Variant): Variant;
begin
  Result := 0;
  if MethodName = 'ADDMETHOD' then
    TfsScript(Instance).AddMethod(Params[0], 
                         TfsCallMethodEvent(Integer(Params[1])), Params[2], Params[3])
end;

при компиляции ошибка
[Error] fs_iscriptrtti.pas(158): Invalid typecast

и еще кто-нибудь пробовал компонент дебагера от Valera135.narod.ru, а то у меня при попытке инсталляции в Delphi нет некоторых .pas файлов?

AlexTZ

А какой смысл вызывать fsScript.AddMethod из скрипта?

vitek1

вызов методов скрипта из скрипта