Добавить функцию с переменным числом параметров
Хочу добавить функцию с переменным числом параметров
типа:
.....
fsGlobalUnit.AddMethod('function Func(t1:integer;...):integer',CallMethod);
.....
function Tff.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: string; var Params: Variant):Variant;
var i:integer;
r:integer;
begin
if MethodName='FUNC' then
begin
r:=0;
for i:=0 to params.count-1 do
r:=r+params;
Result:=r;
end;
end;
типа:
.....
fsGlobalUnit.AddMethod('function Func(t1:integer;...):integer',CallMethod);
.....
function Tff.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: string; var Params: Variant):Variant;
var i:integer;
r:integer;
begin
if MethodName='FUNC' then
begin
r:=0;
for i:=0 to params.count-1 do
r:=r+params;
Result:=r;
end;
end;
Комментарии