求助股票日线数据读取问题

Question

下面这段代码是读取大智慧股票日线数据的代码，话说钱龙的数据格式和大智慧的应该一样，但是我用它来读取钱龙的股票日线数据，各种参数明显不对。求高手指教，或者说能否把下面的代码转化为通达信数据格式，各个字段的定义不要改变，在线等待高人。
Procedure  TFormKXianMain.ReadData(Sender: Tobject);
Var I:Integer;
Var FileName:String;
Var DataFile:File;
Var DataDate: LongWord;
Var DataOpen: LongWord;
Var DataHigh: LongWord;
Var DataLow: LongWord;
Var DataClose: LongWord;
Var DataShuLiang: LongWord;
Var DataJinE: LongWord;
Var DataNoOne: LongWord;
Var DataNoTwo: LongWord;
Var DataNoThree: LongWord;
Begin
  Try
    DayCount:=0;
    FileName:=DayPathName+'\'+CurrentCode+'.day';
    If FileExists(FileName) Then
    Begin
    AssignFile(DataFile, Filename);
    Reset(DataFile,1);
    DayCount:=Round(FileSize(DataFile)/40);
    //基本数据
    SetLength(DayData,7);
    For I := Low(DayData) to High(DayData) do
       SetLength(DayData[I],DayCount);
    I:=0;
    while not Eof(DataFile) do
    Begin
        BlockRead(DataFile, DataDate, SizeOf(DataDate));
        DayData[0][I]:=Not DataDate;
        BlockRead(DataFile, DataOpen, SizeOf(DataOpen));
        DayData[1][I]:=Not DataOpen; //Open
        BlockRead(DataFile, DataClose, SizeOf(DataHigh));
        DayData[4][I]:=Not DataClose; //Close
        BlockRead(DataFile, DataHigh, SizeOf(DataLow));
        DayData[2][I]:=Not DataHigh;  //High
        BlockRead(DataFile, DataLow, SizeOf(DataClose));
        DayData[3][I]:=Not DataLow; //Low
        BlockRead(DataFile, DataJinE, SizeOf(DataShuLiang));
        DayData[5][I]:=Not DataJinE;//Jin E
        BlockRead(DataFile, DataShuLiang, SizeOf(DataJinE));
        DayData[6][I]:=Not DataShuLiang;//Shu Liang
        BlockRead(DataFile, DataNoOne, SizeOf(DataNoOne));
        BlockRead(DataFile, DataNoTwo, SizeOf(DataNoTwo));
        BlockRead(DataFile, DataNoThree, SizeOf(DataNoThree));
        I:=I+1;
    End;
    CloseFile(DataFile);
    End//数据文件存在
    Else
      MessageDlg('数据文件不存在，请重试!', mtInformation,[mbOk], 0);
  Except
    MessageDlg('文件读写错误，请重试!', mtInformation,[mbOk], 0);
  End;
End;股票行业数据

Answer 1

这段代码是读取大智慧本地.day的日线数据的，但是大智慧软件似乎升级了，数据下载后已经找不到.day文件。我在网上搜集了大智慧和钱龙数据格式的相关资料，据说它们是一样的。但是现在读钱龙的日线数据有错误，说明还是有问题的。现在问题是能不能把以上代码转化为通达信数据格式的。各种数据格式的定义见下面的链接
通达信
http://blog.sina.com.cn/s/blog_53864cba01008mwx.html 
大智慧
http://blog.sina.com.cn/s/blog_53864cba01008msb.html
http://blog.csdn.net/yjbnew/article/details/8993513