fdef.pas

股市分析K線,測試版本,可以研究修正,勿用於商業販賣

unit fDef;

interface

uses Classes;

type

{ TArrayOfSingle }

	TArrayOfSingle = array of Single;
  TArrayOfInteger= array of Integer;

{ TStkDataRec }//0000,13100,13100X(nonEtron),13171X(nonBank),17100
  PStkDataRec = ^TStkDataRec;
	TStkDataRec = packed record
    Date: TDateTime;					//ら戳
    OP,HP,LP,CP,VOL: Single;	//Μ絃,秨絃,程蔼,程