try
TTest = Packed record
data10 : Smallint;
data11 : Smallint;
data12 : Smallint;
data13 : Smallint;
data14 : Smallint;
data21 : array[1..3] of char;
data22 : array[1..3] of char;
data23 : array[1..3] of char;
data3 : single;
data4 : longint;
end;
TTest = Packed record
data10 : Smallint;
data11 : Smallint;
data12 : Smallint;
data13 : Smallint;
data14 : Smallint;
data21 : array[1..3] of char;
data22 : array[1..3] of char;
data23 : array[1..3] of char;
data3 : single;
data4 : longint;
end;
如果要等于你的计算数值,可以修改声明:
TTest = packed record
data10 : Smallint;
data11 : Smallint;
data12 : Smallint;
data13 : Smallint;
data14 : Smallint;
data21 : array[1..3] of char;
data22 : array[1..3] of char;
data23 : array[1..3] of char;
data3 : single;
data4 : longint;
end;