关于函数返回值的问题

[atgameover]

type
Tdata =array [0..3] of byte;

pdata = ^Tdata;

.........

function Myfunc:pdata;
var
data:Pdata;
begin
new(data);
result := data;
end;

function Myfunc:pdata;
var
data:Tdata;
begin
result := @data;
end;

请问,这两种写法的返回值有区别吗?哪个对?

[lyhoo163]

type
   Tdata =array [0..3] of byte;
   pdata=^Tdata;                        // 指向Tdata的指针 类型


type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A:pdata;


implementation

{$R *.dfm}


function  Myfunc1:pdata;
var data:Pdata;
begin
  new(data);
  result := data;     // 返回 指针类型
end;

function  Myfunc2:pdata;
var  data:Tdata;
begin
  result := @data;    // 返回 指向data的指针
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  A:=Myfunc1;
  A:=myfunc2;
end;

二者都可以，返回的都是pdata。

[武稀松]

第二种明显是错的,把局部变量地址做返回值.离开函数,局部变量就被回收了.内存若么可读,若么随机或保持原值.
也可能被其他代码重复使用.

[doloopcn]

建议用1

1的写法标准，版本兼容性好

2的写法适合D7之类的版本，到了XE会DEBUG到你头爆

[日立奔腾浪潮微软松下联想]

2是典型的错误，返回局部变量的引用或指针。
由于Delphi的函数允许返回任意类型，实际上不必返回一个指向复杂类型的指针，后者是典型的C方式，可以直接：
function Myfunc: Tdata;
begin
Result[0] := 1;
end;

[BlueStorm]

写法2不论是对哪个版本的Delphi都是不合理的， 因为data是局部变量，它所占用的内存在函数退出时就会被释放掉，这些内存随时都有可能被本身程序或其它程序重新分配。

[堕落恶魔_Delphi]

2的写法是错了, 原因是临时变量生存周期只存在于函数内部 1的写法是对的, 但是实际就相当于new, 没必要设置个临时变量

function  Myfunc1:pdata;
begin
  new(Result);
end;

[minizhuxianchun]

所以说呢，大多学DEPHI的人对指针涉及不多，但DELPHI对指针的支持和C一样的，甚至我们可以开一片内存人工造一个数组

[minizhuxianchun]

procedure SetAryHeader(var RevBuffer: Pointer);
var
AryLen,MemSize: integer;
begin
if PHeader(RevBuffer)^.X>0 then
begin
AryLen:=PHeader(RevBuffer)^.X;
MemSize:=PHeader(RevBuffer)^.Size; //windows.VirtualAlloc()
MoveMemory(Pointer(DWORD(RevBuffer)+2*S_INTEGER),Pointer(DWORD(RevBuffer)+S_HEADER),MemSize-S_HEADER);
ReallocMem(RevBuffer,MemSize-S_HEADER+2*S_INTEGER);
PDWORD(Pointer(DWORD(RevBuffer)+S_INTEGER))^:=AryLen; //设置动态数组长度。
RevBuffer:=Pointer(DWORD(RevBuffer)+2*S_INTEGER);
//Dec(PDWORD(RevBuffer),1);
//PDWORD(RevBuffer)^:=0; //引用计数大于0
//Inc(PDWORD(RevBuffer),2);
end
else
begin
FreeMem(RevBuffer);
RevBuffer:=nil;
end;
end;