关于在procedure中的Pchar参数

  Pchar是一个指针类型，他指向一个Char类型的指针相当于C语言中的 *Char类型。
  pinteger也同样是指向一个整数的指针
 
  前段时间，公司里面要使用一个用PB写的DLL，而他公开的参数是一个Pchar类型的，而且该参数的值需要返回。
但是他的声明类型中既没有加 Var也没有加Out来指定其为输出参数。现在我们来讨论一下，如何使Pchar类型的参数将使用后的值返回出来。
  先看一个例子：
   我们写一过程：
       procedure  SetInteger(ss: pinteger);
       begin
            ss^ := 3;
       end;
       然后我们调用
       procedure Button1Click(Sender: TObject);
       var
           i: pinteger;
       begin
            SetInteger(@i);     //设置i对应地址中的值为3了，此时i的值就为3了
       end;
    那么是否Pchar参数一样的返回呢？
   我们写过程如下：
       procedure SetPchar(p: pchar)
       begin
            p := '不得闲测试';
       end;
       然后同样的方法调用之，你会发现他并没有将结果 返回来，这是因为，你传递的时候指针指向一个地址，而当你使用了
      p := '不得闲测试';
      这个语句之后则p的指向为该字符串地址（他只是为地址赋值，却并没有复制值到该地址中来），但他本身地址并没有得到值，但程序返回的时候，其内部的字符串会自动释放的，所以在程序返回的时候，他本身指向的地址中的值并没有变，所以我们得不到正确的值。
     此时我们如果能够将要返回的值复制到  P进入的时候的地址中的话，那么就能够得到正确的值了。此时最简单的一个方法就是使用StrLCopy函数。
    所以函数改写如下：
    procedure SetPchar(p: pchar)
   begin
     StrLCopy(p,'不得闲测试',10);
   end;

  此时我们在调用方式如下
  var
    p: pchar
  begin
     setPchar(p);
    //此时的p则可以返回一个正确的值了.
  end;