AddClass
Как через fsGlobalUnit.AddClass добавить fsScript.AddClass? Пробовал как написано в справке, не получается
[Error] fs_iscriptrtti.pas(158): Invalid typecast
и еще кто-нибудь пробовал компонент дебагера от Valera135.narod.ru, а то у меня при попытке инсталляции в Delphi нет некоторых .pas файлов?
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 файлов?
Комментарии