两条函数:

procedure GetTexture(PTex: PTTexture);

procedure GetTexture(var PTex: PTTexture);

上面这两条函数有区别吗?有,而且不注意,问题大发了。一般来说,由于是指针,我们很少加特别的指示符。但是在使用中,会一不留神就会留下隐患。因为不好查。

function XXXX.GetToImageTexture: PTTexture;
var
  nPTex: PTTexture;
begin
     Result := nil;
     GetTexture(nPTex);     //procedure GetTexture(PTex: PTTexture);
     if nPTex <> nil then Result := nPTex;
     nPTex := nil;
end;

//执行函数,返回值是nil;


function XXXX.GetToImageTexture: PTTexture;
var
  nPTex: PTTexture;
begin
     Result := nil;
     GetTexture(nPTex);     //procedure GetTexture(var PTex: PTTexture);PTTexture);
     if nPTex <> nil then Result := nPTex;
     nPTex := nil;
end;

//执行函数,返回值是正确的值!!!

之所以出现这样的问题,是因为第一条函数传递的是值,而临时变量指针nPTex根本就没有分配内存,是没有值可以传递的。所以采用这种方式的前提是:指针是分配好内存的,或者说,已经指向一块内存区域。

而第二种却可以正常传递进去,因为传递的是地址,指针本身的地址,所以可以得到正确的结果,而不需要事先分配好内存。

留此记录备忘。

 

posted on 2018-03-18 12:37  一笑如风  阅读(310)  评论(0编辑  收藏  举报