unit1.dfm

该程序把Excel公式分解为Token序列。

object Form1: TForm1
  Left = 192
  Top = 151
  Width = 696
  Height = 499
  Caption = 'Excel Formula Parser'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StringGrid1: TStringGrid
    Left = 0
    Top = 41
    Width = 680
    Height = 239
    Align = alClient
    ColCount = 6
    Ctl3D = False
    DefaultColWidth = 110
    DefaultRowHeight = 20
    RowCount = 100
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    ColWidths = (
      9
      36
      118
      119
      121
      177)
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 680
    Height = 41
    Align = alTop
    TabOrder = 1
    object btnParse: TButton
      Left = 600
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Parse'
      TabOrder = 0
      OnClick = btnParseClick
    end
    object ComboBox1: TComboBox
      Left = 8
      Top = 12
      Width = 585
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 
        '=IF("a"={"a","b";"c",#N/A;-1,TRUE}, "yes", "no") &   "  more ""t' +
        'est"" text"'
      Items.Strings = (
        
          '=IF("a"={"a","b";"c",#N/A;-1,TRUE}, "yes", "no") &   "  more ""t' +
          'est"" text"'
        
          '=+ AName- (-+-+-2^6) = {"A","B"} + @SUM(R1C1) + (@ERROR.TYPE(#VA' +
          'LUE!) = 2)'
        
          '=IF(R13C3>DATE(2002,1,6),0,IF(ISERROR(R[41]C[2]),0,IF(R13C3>=R[4' +
          '1]C[2],0, IF(AND(R[23]C[11]>=55,R[24]C[11]>=20),R53C3,0))))'
        
          '=IF(R[39]C[11]>65,R[25]C[42],ROUND((R[11]C[11]*IF(OR(AND(R[39]C[' +
          '11]>=55, R[40]C[11]>=20),AND(R[40]C[11]>=20,R11C3="YES")),R[44]C' +
          '[11],R[43]C[11]))+(R[14]C[11] *IF(OR(AND(R[39]C[11]>=55,R[40]C[1' +
          '1]>=20),AND(R[40]C[11]>=20,R11C3="YES")), R[45]C[11],R[43]C[11])' +
          '),0))'
        '=3.14E+12+33+55+23.32E+46+45'
        '=1+3+5'
        '=3 * 4 + 5'
        '=50'
        '=1+1'
        '=$A1'
        '=$B$2'
        '=SUM(B5:B15)'
        '=SUM(B5:B15,D5:D15)'
        '=SUM(B5:B15 A7:D7)'
        '=SUM(sheet1!$A$1:$B$2)'
        '=[data.xls]sheet1!$A$1'
        '=SUM((A:A 1:1))'
        '=SUM((A:A,1:1))'
        '=SUM((A:A A1:B1))'
        '=SUM(D9:D11,E9:E11,F9:F11)'
        '=SUM((D9:D11,(E9:E11,F9:F11)))'
        
          '=IF(P5=1.0,"NA",IF(P5=2.0,"A",IF(P5=3.0,"B",IF(P5=4.0,"C",IF(P5=' +
          '5.0,"D",IF(P5=6.0,"E",IF(P5=7.0,"F",IF(P5=8.0,"G"))))))))'
        '={SUM(B2:D2*B3:D3)}'
        
          '=SUM(123 + SUM(456) + (45DATE(2002,1,6),0,IF(ISERROR(R[41]C[2]),' +
          '0,IF(R13C3>=R[41]C[2],0, IF(AND(R[23]C[11]>=55,R[24]C[11]>=20),R' +
          '53C3,0))))')
    end
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 280
    Width = 680
    Height = 183
    Align = alBottom
    Indent = 19
    TabOrder = 2
  end
end