有没有这样的函数？？？？？

Question

一个函数有两个参数，每个参数都有默认值，例如
procedure(a:integer=1;b:Char='X');
上面的过程就可以实现，但是...
现在我想要实现的是a和b两个参数互斥，就是说我调用这个函数的时候，
既可以给他integer类型的参数，也可以给他char类型的参数
如果我给了他一个integer的参数，那么作相应的操作1
如果我给的参数时char类型的，那么作相应的操作2
这样的函数怎么写啊？？？？

Answer 1

参数用Variant类型传入，然后用VarType去判断。或者用重载

Answer 2

TParent = class
public
    procedure OneProc;
end;TChild = class(TParent)
public
    procedure OneProc;//如果这个地方不写overload的话应该报错的对不对？但是我的却不报错，咋回事那？
end;