unit1.~h

計算財金系統的Herding值 可幫助估算股票市值的分析

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "CGAUGES.h"
#include <Buttons.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
struct DATA
{
   TStringList *dstInfoList;
};
struct Value
{
   int             m_nOldTimeInterval;
   int             m_nOldBS; // B:0,S:1
   int             m_nIntervalCount;
   int             Rb;
   int             Rs;
};
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TCGauge *CGauge1;
        TBitBtn *BitBtn1;
   TBitBtn *BitBtn3;
   TBitBtn *BitBtn4;
   TOpenDialog *OpenDialog;
        TMemo *Memo1;
        TRadioGroup *RadioGroup1;
   void __fastcall BitBtn1Click(TObject *Sender);
   void __fastcall FormCreate(TObject *Sender);
   void __fastcall BitBtn3Click(TObject *Sender);
   void __fastcall BitBtn4Click(TObject *Sender);
private:	// User declarations
   TStringList *sfileList;
   void __fastcall GetAllSubFilePath(AnsiString Dir, TStringList *sList);
   void __fastcall Process(AnsiString SrcFileName);
   AnsiString __fastcall GetFileName(AnsiString sDirectories);
   void __fastcall MemoPrintf(AnsiString s);
   bool __fastcall TimeCheck(AnsiString sTime1, AnsiString sTime2);
   void __fastcall CalaulateH(AnsiString sData);
   int __fastcall  GetTimeInterval(AnsiString sTime);
   void __fastcall  ClearFileCalculate();
   void __fastcall SaveData();
   AnsiString m_sSrcFilePath;//Src戈