Question

delphi向函数中的参数传值

Function a(b:Array of Byte):Integer;
var c:Array of Byte;
begin
SetLength(c);
c[0] := 255;
c[1] := 255;
b := @c;
end;
//这样是出错的，怎么才能向函数中的参数传值呢？那个参数还是一个数组。

Answer 1

// 老版本的Delphi好像a(var b:Array of Byte)就可以
// XE以后好像不能了，只能这样写
function a(var b): Integer;
var
  d: array of Byte absolute b;
begin
  SetLength(d, 2);
  d[0] := 255;
  d[1] := 255;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  d: array of Byte;
  I: Integer;
begin
  a(d);
  for I := Low(d) to High(d) do
    ShoeMessage(IntToStr(d[I]));
end;

追问

function a(var b): Integer;
var
d: array of Byte absolute b;
begin
SetLength(d, 2);
d[0] := 255;
d[1] := 255;
end;
//你并没有给b传值啊大哥？B一定要是数组。

追答

注意这句
var
d: array of Byte absolute b;
其实d就是指向b的，相当于别名

Answer 2

type
  Arrbyte = array of Byte;

function a(var b: Arrbyte): Integer;
var
  d: array of Byte;
begin
  SetLength(d, 2);
  d[0] := 13;
  d[1] := 10;
  SetLength(b, 2);
  CopyMemory(b, d, 2);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

  aa: Arrbyte;

begin

  a(aa);

  ShowMessage(IntToStr(aa[0])+' '+ IntToStr(aa[1]));

end;

追问

谢谢你，你的办法也好，可以用，就是还要声明类型，还是用关键字absolute好用。