请教关于数组传参的问题

[gwtaa]

type
TDynArrayByte = array of Byte;

rbuf : TDynArrayByte;

function ChangeToLong(const A : TDynArrayByte):Longint;



SetLength(rbuf, 256);


function TForm1.ChangeToLong(const A : TDynArrayByte):Longint;
var
Data : TDynArrayByte;
begin
SetLength(Data,8);
Data := A;

Result := Data[1] + Data[2] +
Data[3] + Data[4] +
Data[5] + Data[6] +
Data[7] + Data[8];
end;



DownData1 := ChangeToLong(@rbuf[5]);


这是源代码，运行时发生错误，
而如果最后一句改为DownData1 := ChangeToLong(rbuf[5]);则编译不过

请问应该如何传递数组？谢谢

[gwtaa]

没人知道怎么搞吗？

[bdmh]

你哪报错呀
DownData1 := ChangeToLong(rbuf[5]);肯定编译不过,rbuf[5]这是TDynArrayByte类型吗

[火龙岛主]

Result := Data[0] + Data[1] + Data[2] +
Data[3] + Data[4] +
Data[5] + Data[6] +
Data[7];

[火龙岛主]

DownData1 := ChangeToLong(@rbuf[5]);//类型不匹配

DownData1 := ChangeToLong(rbuf);

[notebook800]

DownData1 := ChangeToLong(@rbuf);

function TForm1.ChangeToLong(const Buffer: Pointer): Longint;
var
    Info: string;
    Data: TDynArrayByte;
begin
    SetLength(Data, 8); //? 废话
    Data := TDynArrayByte(Buffer^);
    Result := Data[1] + Data[2] +
        Data[3] + Data[4] +
        Data[5] + Data[6] +
        Data[7] + Data[8];
end;

[kfcoffe]

lz 这貌似没错啊。DownData1 := ChangeToLong(@rbuf[5]);
像你这种写法是把第6个元素的地址传过去。
然后Data := A; 即data指向rbuf中第6个元素。
然后相加其后的8个元素。
不知道你编译的时候出现什么错误。

[Seamour]

[Quote=引用 6 楼 kfcoffe 的回复:]
lz 这貌似没错啊。DownData1 := ChangeToLong(@rbuf[5]);
像你这种写法是把第6个元素的地址传过去。
然后Data := A; 即data指向rbuf中第6个元素。
然后相加其后的8个元素。
不知道你编译的时候出现什么错误。

[/Quote]
现在我终于明白，为啥好多我看不懂人家想干嘛的东西，别人能够无障碍交流了
编译器发展到今天，仍然没有发展到有足够的创意，足以能明白中国码农们到底想干嘛