动态库中的一个问题

Question

有这样一个函数function p(f: integer; var l: Integer; r: PChar): Word;其中l和r均为输出参数。
另有一个函数function q(f: integer; var l: Integer; out r: string):word;
问：如何在动态库中，在函数q中调用函数p，得到函数q的输出结果？

Answer 1

q的参数类型要改改 ，有一个为DWORD ；然后将p作为参数传入 
或者：
function p(f: integer; var l: Integer; r: PChar): Integer ；q(1,p(1,2,'a'),2)

Answer 2

我的意思是
q = p(f,l,?r);