Hi,各位先進大家好:
小弟想執行由字串內容指定的Procedure(不使用If Then),
找到程式如下,可是執行卻會出現 Invalid Class Typecast,
請問是何原因?
謝謝!

Type
THelper = class
public
class procedure Test;
end;

function ExecuteMethod(AClass : TClass; AMethodName : String; const AArgs: Array of TValue) : TValue;
var RttiContext : TRttiContext;
RttiMethod : TRttiMethod;
RttiType : TRttiType;
RttiObject : TObject;
begin
RttiObject := AClass.Create;
try
RttiContext := TRttiContext.Create;
RttiType := RttiContext.GetType(AClass);
RttiMethod := RttiType.GetMethod(AMethodName);
Result := RttiMethod.Invoke(RttiObject,AArgs);
finally
RttiObject.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteMethod(THelper, 'Test, []);
end;