mainut.pas

读取大智慧股票软件中的日线数据进行分析的源代码。代码仅有读取数据部分

unit MainUt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, ComCtrls, ezDBGrid, ActnList;

type
  TMainFm = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }

  end;


var
  MainFm: TMainFm;

implementation

uses readdatafileUt, FileCtrl;

{$R *.dfm}


procedure TMainFm.Button1Click(Sender: TObject);
var
  Dayfilename,InfoFileName,Dir:string;
  DataLine:TDataLIne;
  i:integer;
begin
  Dir   :=   'D:\';
  if   SelectDirectory(Dir,   [sdAllowCreate,   sdPerformCreate,   sdPrompt],0)   then
  begin
    Dayfilename:=Dir+'\Day.dat';
    InfoFilenAME:=Dir+'\STKINFO60.DAT';
  end;

  edit1.Text:='000001';
  DataLine:=TDataLine.Create;
  DataLIne.DayFileName:=Dayfilename;
  DataLine.InfoFileName:=InfoFileName;
  DataLine.code:='000001';
  DataLIne.ReadDataRecs;
  For i:=0 to DataLine.DataRecs.Count-1 do
  begin
    memo1.Lines.Add(datetostr(TDataRec(DataLine.DataRecs.Objects[i]).rq)+' '+
                    formatfloat('0.000',TDataRec(DataLine.DataRecs.Objects[i]).kp)+' '+
                    formatfloat('0.000',TDataRec(DataLine.DataRecs.Objects[i]).zg)+' '+
                    formatfloat('0.000',TDataRec(DataLine.DataRecs.Objects[i]).zd)+' '+
                    formatfloat('0.000',TDataRec(DataLine.DataRecs.Objects[i]).sp)+' '+
                    formatfloat('0.000',TDataRec(DataLine.DataRecs.Objects[i]).sl)+' '+
                    formatfloat('0.000',TDataRec(DataLine.DataRecs.Objects[i]).je));
  end;
end;

end.