请问怎样才能将一个类型为PByteArray的数组赋值给Array of do uble的数组呢？ (100分)

H

hotboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #1

在我一个图像处理程序中
请问怎样才能将一个类型为PByteArray的数组赋值给Array of Double的数组呢？

如var P : PByteArray;
RealIn:array of double;
begin
.....
P := BitMap.ScanLine[1];
RealIn:=P;/此句有错，我想实现把p对应的值赋给RealIn

请问高手我该怎么办？？

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #2

P := Bitmap.ScanLine[1];
SetLength(RealIn, Bitmap.Width -1);
for i := 0 to Bitmap.Width - 1 do
begin
RealIn := P^;
end;

 

Z

zjan521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #3

type
TArrDouble=Array of Double;
PArrDouble=^TArrDouble;

var
pArrDouArrDouble;
var P : PByteArray;
pArrDou:=p;

或者直接强制转换

RealIn:=P;/此句有错，我想实现把p对应的值赋给RealIn
RealIn不行，只能用指针

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #4

COpyMemory(p,@RealIn[0],Length(p^))