如何把一个char型数组做一个整体进行传递？

Question

我在做ocx的时候遇到一个问题：
   在ocx中有一个函数
     function enroll(out q: OleVariant);
       var
          AA :array[0..119] of char;
      begin
        ...
        SMZ_Enroll( xx,AA ); //这里调用函数给数组AA赋值
        q := AA; //这里该怎么写才能把AA值赋给q？ 
        ...
     end;

Answer 1

ocx中好像找不到指针型数据类型啊，请各位指教！谢谢！

Answer 2

var
  p :PChar;
begin
  p :=PChar(AA);
  q := p;
end;