unit1.~dfm

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

object Form1: TForm1
  Left = 713
  Top = 93
  Width = 360
  Height = 449
  Caption = #36942#28670#36039#26009
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CGauge1: TCGauge
    Left = 40
    Top = 104
    Width = 281
    Height = 28
  end
  object BitBtn1: TBitBtn
    Left = 40
    Top = 56
    Width = 137
    Height = 41
    Caption = #34389#29702
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn3: TBitBtn
    Left = 32
    Top = 16
    Width = 75
    Height = 25
    Caption = #20358#28304#36039#26009#22846
    TabOrder = 1
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 120
    Top = 16
    Width = 75
    Height = 25
    Caption = #30446#30340#36039#26009#22846
    TabOrder = 2
    OnClick = BitBtn4Click
  end
  object Memo1: TMemo
    Left = 40
    Top = 144
    Width = 281
    Height = 249
    Lines.Strings = (
      '')
    ScrollBars = ssBoth
    TabOrder = 3
  end
  object RadioGroup1: TRadioGroup
    Left = 208
    Top = 8
    Width = 137
    Height = 81
    Caption = #25237#36039#20154#31278#39006
    ItemIndex = 0
    Items.Strings = (
      #33258#29151#21830
      #25237#20449#22522#37329
      #22806#36039
      #33258#28982#20154)
    TabOrder = 4
  end
  object OpenDialog: TOpenDialog
    Filter = '.txt|*.txt'
    Left = 24
    Top = 56
  end
end