var
tk:TKLine; //一个大小为40的结构
m:TMemoryStream;
i:Integer;
AllData:array of TKLine;
begin
m:=TMemoryStream.Create;
m.LoadFromFile('D:\DAY\IF01-0.Day');
i:=m.size div SizeOf(tk); // 比如 i=210;
SetLength(AllData,i);
FillChar(AllData,SizeOf(AllData),0);
ShowMessage(IntToStr(SizeOf(AllData))); //这里为什么总是4啊
//m.writeBuff(AllData,sizeof(AllData));