php画股票k线图,读股票数据画K线图很不错的Delphi源码

【实例简介】读股票数据画K线图很不错的Delphi源码

【实例截图】

【核心代码】procedure TfrmMain2.DrawScaleK(C: TCanvas; R: TRect);

var

High, Low, D: Single;

HIndex, LIndex: TArrayOfInteger;

HA, LA: TArrayOfSingle;

begin

if FindKLineScaleHighLow(StkDataFile,High,Low,HA,LA,HIndex,LIndex) then

begin

ScaleHigh[1] := High;

ScaleLow[1] := Low;

D := (High-Low) / 20;

High:= High D;

Low := Low -D;

InflateRect(R,0,-2);

DRAW_SCALE(C,R,ScaleLow[1],ScaleHigh[1],Low,High,_height_(R) div 25, True);

end;

end;

procedure TfrmMain2.DrawV(C: TCanvas; R: TRect);

var

D, High, Low: Single;

I, J, X1, X2, Y1, Y2: Integer;

P: PStkDataRec;

begin

if FindVLineScaleHighLow(StkDataFile,High,Low) then

begin

ScaleHigh[2] := High;

ScaleLow[2] :=