我有两个Equal方法来承担这些重载:
tvariantExpression = reference to function(): Variant; function Equal(const value: Variant): TRuleBuilder; overload; function Equal(expr: tvariantExpression): TRuleBuilder; overload;
function TForm1.GetMagicNumber: Variant; begin Result := 10; end;
Equal(Form1.GetMagicNumber);