请问大家：PBuf 是一个字节数组，PDouble(PBuf)^是什么意思？

Question

请问大家：PBuf 是一个字节数组，PDouble(PBuf)^是什么意思？如果不用PDouble我该如何从PBuf中得到PDouble(PBuf)^对应的值？

Answer 1

PBuf以字节数组的形式保存了一组浮点数
PDouble(PBuf)^应该是第一个浮点数PDouble(PBuf)^ 应该等于 Double(PBuf^)

Answer 2

pdouble(pbuf)是以函数的形式传递数组。

Answer 3

谁能具体写个范例出来给俺STUDY一下啊？

Answer 4

pBuf是一个字节数组指针。
PDouble(PBuf)^ 等于建立了一个Double型指针，并指向字节数组中的前sizeof(double)的字节，并把它们转换成DOUBLE型，然后取其double值。

Answer 5

例子，这里我用的是integer了。
procedure TForm1.Button1Click(Sender: TObject);
var
 pbuf: array[0..4] of byte;
 pint: ^integer;
 a: integer;
begin
   a := 1;
   copymemory(@pbuf,@a,sizeof(integer));
   pint :=   @pbuf;
   showmessage(inttostr(pint^));
end;