您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

关于在Procedure中的PChar参数

时间:2011/9/3 15:38:01 点击:

  核心提示:Pchar是一个指针类型,他指向一个Char类型的指针相当于C语言中的 *Char类型。 pinteger也同样是指向一个整数的指针前段时间,公司里面要使用一个用PB写的DLL,而他公开的参数是一个P...
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;

作者:不得闲 来源:原创
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号