有既用C++ Builder,又用Delphi的吗?帮帮忙...急!!!

[ma369]

各位高手帮帮忙，有下面一段用C++ Builder编写的程序，如何把它改写为
用Delphi 来写，小弟在此谢了。

struct DataFileHead
{
...
unsigned short int ParNum;
...
}a;

float *ParValue;
FILE *DataIn;

...
ParValue=new float[FormMain->a.ParNum];
...

fread(ParValue,sizeof(float), a.ParNum,DataIn);

[ma369]

可能是小弟太笨,没说清楚.目地是把用C++ Builder编写的程序，改写为
用Delphi 来写.我写的如下,参数ParNum设置为word类型,ParValue设置为
array of single类型,关键要与C++ Builder的数据类型相对应.


type
TDataFileHead= packed record
...
ParNum:word;
...
end;
...

DataIn:file;
a:TDataFileHead;

ParValue:array of single;

...

SetLength(ParValue,a.ParNum);

...

BlockRead(datain,ParValue,1,NumRead);
...

改写的关键一句为:fread(ParValue,sizeof(float), a.ParNum,DataIn);

各位帮帮忙,分立马送.

[lanren_me]

type TDataFileHeadc=record
field1,field2,field3,field4,field5,field6,field7,field8:integer;
ParNum:integer;
end;

[lanren_me]

var
ParValue: array of float;
.....
SetLength(ParValue, FormMain->a.ParNum]);

[ma369]

谢了，各位，问题已解决。