一个方法如何传入一个过程中？？

Question

就是如果我想传入一个方法该如何传呢，比如说我通过参数传入print，就执行qreport.print,如果是preview，就执行qreport.preview，这样的方法该如何设呢？

Answer 1

1. 使用函数指针
2. 传整数就好了：
case ParamInt of
 1: qreport.print;
 2: qreport.preview;
 ....
 ....
end;