大智慧日K线的数据结构

Canvas.Pen.Style:=psDot;
Canvas.Pen.Color:=clMaroon;
BlockRead(DataFile, DataHigh, SizeOf(DataLow));
DayData[2][I]:=DataHigh; //读取最高价数据放入最高价数组中
BlockRead(DataFile, DataLow, SizeOf(DataClose));
SetLength(DayData[I],DayCount);
I:=0;
//------------------------------------------
//============把数据读入相应数组中========le) do
深圳日线存储路径为:D:dzhDATASZnseDay
深圳周线存储路径为:D:dzhDATASZnseweek
深圳月线存储路径为:D:dzhDATASZnsemonth
周线,月线格式与日线格式一致.
以深发展日线为例:
1A76:0100 D6 CD 2F 01 52 07 01 00-52 07 01 00 52 07 01 00
一、数据文件和数据结构：
大智慧数据文件和数据结构：（假设大智慧股票行情软件安装在D:dzh目录下）
上海日线存储路径为:D:dzhDATASHaseDay,文件扩展名为:.day
上海周线存储路径为:D:dzhDATASHaseweek,文件扩展名为: .wek
上海月线存储路径为:D:dzhDATASHasemonth,文件扩展名为: .mnt
1A76:0140 D4 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00
每一条记录的长度为40字节:
1-4字节为日期,D6 CD 2F 01转换为十进制是:19910102
5-8字节=开盘价(元)*1000
9-12字节=最高价(元)*1000
BlockRead(DataFile, DataNoTwo, SizeOf(DataNoTwo));
BlockRead(DataFile, DataNoThree, SizeOf(DataNoThree));
I:=I+1;
End;
//========================================
End;
End;
二、引用日线数据文件中的数据
只要在需要的地方进行调用上述定义的数组即可。部分示例如下：
Procedure TFormKXianMain.DrawLineInIt(Sender: Tobject);
Var I,FlagExit,x1:Integer;
CloseFile(DataFile);
End//数据文件存在
Else
MessageDlg(‘数据文件不存在，请检查程序中文件路径!‘, mtInformation,[mbOk], 0);
Except
MessageDlg(‘文件读写错误，请检查程序中文件路径!‘, mtInformation,[mbOk], 0);
//左边竖直线
Canvas.Pen.Color:=clRed;
Canvas.MoveTo(LeftX-1,0);
Canvas.LineTo(LeftX-1,PaintHeight);
//上边水平线
Canvas.MoveTo(0,TopY);
CurrentDate:=DayCount-1;
CurrentX:=x1-Round((DefaultWidth+1)/2);
End;
End;
Procedure TFormKXianMain.DrawLine(Sender: Tobject);
Var kpjg,spjg,zgjg,zdjg:Integer;
Var x1,x2,y1,y2,x3,y3,x4,y4:Integer;
Var I,Kheight:Integer;
Var TempString,OutStr:String;
Var TempLen,StrLen:Integer;
Begin
If DayCount>0 Then
BlockRead(DataFile, DataShuLiang, SizeOf(DataJinE));
DayData[6][I]:=DataShuLiang;//读取成交量数据放入成交量数组中
BlockRead(DataFile, DataNoOne, SizeOf(DataNoOne));
Canvas.LineTo(PaintWidth,TopY);
//右边竖直线
Canvas.MoveTo(PaintWidth-RightX,TopY);
Canvas.LineTo(PaintWidth-RightX,PaintHeight);
Var DataNoOne: LongWord;
Var DataNoTwo: LongWord;
Var DataNoThree: LongWord;
//----------------------------------------------
Begin
Try
DayCount:=0;
Begin
If DayCount>0 Then
Begin
BeginDate:=0;
EndDate:=DayCount-1;
x1:=LeftX;
FlagExit:=0;
I:=DayCount-1;
DayData[1][I]:=DataOpen; //读取开盘数据放入开盘数组中
BlockRead(DataFile, DataClose, SizeOf(DataHigh));
DayData[4][I]:=DataClose; //读取收盘数据放入收盘数组中
1A76:0110 52 07 01 00 86 0F 00 00-4D 02 00 00 00 00 00 00
1A76:0120 00 00 00 00 00 00 00 00-D7 CD 2F 01 60 03 01 00
1A76:0130 60 03 01 00 60 03 01 00-60 03 01 00 82 05 00 00
Begin
BlockRead(DataFile, DataDate, SizeOf(DataDate));
DayData[0][I]:=DataDate;//读取日期数据放入日期数组中
BlockRead(DataFile, DataOpen, SizeOf(DataOpen));
Var DataHigh: LongWord;//最高价数组
Var DataLow: LongWord;//最低价数组
Var DataClose: LongWord;//收盘价数组
Var DataShuLiang: LongWord;//成交量数组
Var DataJinE: LongWord;//成交金额数组
Var I:Integer;
Var FileName:String;//日k线数据文件
Var DataFile:File;
//-----------------定义日线数据结构数组----------
Var DataDate: LongWord;//日期数组
Var DataOpen: LongWord;//开盘价数组
FileName:=‘D:dzhDATASZnseDay001.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
Else
I:=I-1;
End;
If (I=-1) Then
LeftDate:=0
Else
LeftDate:=I;
RightDate:=DayCount-1;
DayData[3][I]:=DataLow; //读取最低价数据放入最低价数组中
BlockRead(DataFile, DataJinE, SizeOf(DataShuLiang));
DayData[5][I]:=Not DataJinE;//读取成交金额数据放入成交金额数组中
Begin
//清空屏幕
Canvas.Brush.Color:=clblack;
Canvas.Brush.style:=bsSolid;
Canvas.FillRect(Rect(0,0,PaintWidth,PaintHeight));
While (I>-1) And (FlagExit=0) Do
Begin
x1:=x1+DefaultWidth;
If (x1+DefaultWidth)>(PaintWidth-RightX) Then
FlagExit:=1
//下边水平线
Canvas.MoveTo(0,PaintHeight-BottomY);