main.dfm

ArtFormula package contains two nonvisual Delphi component for symbolic expression parsing and evalu

object MainForm: TMainForm
  Left = 367
  Top = 197
  Width = 489
  Height = 457
  Caption = 'ArtFormula Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020000001001800A80C00002600000010100000010018006803
    0000CE0C00002800000020000000400000000100180000000000800C00000000
    0000000000000000000000000000FFD7D4FFD6D2FED6D1FDD5D2FCD5D2FBD6D4
    FAD6D3FAD7D3FAD8D5FAD9D5F9D9D6F9DAD7F8DAD7F8DCD9F8DCD9FADFDDFBE1
    DEFCE3E1FDE5E3FDE5E4FDE6E5FDE7E5FDE9E6FCE9E7FCEAE8FBEAE8FBEBEAFB
    ECEBFBEDECFCEFEEFDF2F0FEF3F3FFD2CDFFD1CDFFD2CEFED3CFFED4D0FED5D1
    FED6D2FED7D4FED8D4FED9D5FEDAD7FEDBD8FDDBD8FDDCD9FDDDDAFEDFDCFEE0
    DDFEE2DFFFE4E1FFE5E2FFE5E3FFE7E5FFE8E6FFE9E7FEEAE7FEEBE9FEECEAFE
    ECEBFEEEEDFEEFEEFEF0EFFFF3F2FFD7D4FFD6D2FED6D1FDD5D2FCD5D2FBD6D4
    FAD6D3FAD7D3FAD8D5FAD9D5F9D9D6F9DAD7F8DAD7F8DCD9F8DCD9FADFDDFBE1
    DEFCE3E1FDE5E3FDE5E4FDE6E5FDE7E5FDE9E6FCE9E7FCEAE8FBEAE8FBEBEAFB
    ECEBFBEDECFCEFEEFDF2F0FEF3F3FFD2CDFFD1CDFFD2CEFED3CFFED4D0FED5D1
    FED6D2FED7D4FED8D4FED9D5FEDAD7FEDBD8FDDBD8FDDCD9FDDDDAFEDFDCFEE0
    DDFEE2DFFFE4E1FFE5E2FFE5E3FFE7E5FFE8E6FFE9E7FEEAE7FEEBE9FEECEAFE
    ECEBFEEEEDFEEFEEFEF0EFFFF3F2FFD2CDFFD0CCFFD1CDFFD2CEFFD3CFFFD4D0
    FFD5D2FFD7D3FFD8D4FFD9D5FFDAD6FFDAD7FFDCD9FFDDDAFFDEDBFFDFDCFFE0
    DDFFE1DFFFE2DFFFE3E0FFE4E2FFE6E4FFE6E5FFE8E6FFE9E7FFEAE8FFEBE9FF
    EDEBFFEEECFFEFEDFFF0EFFFF2F1FFD1CCFFCFCAFFD0CBFFD1CDFFD2CEFFD3CF
    FFD4D14036352923224C403F766462776564F5D2CFFFDCD9FCDAD7E1C3C0C8AF
    ADB7A19FFFE1DEFFE2DFFFE3E1FFE5E2FFE5E3E3CECCC0AFAD988B8AE1CECDFF
    EBE9FFEDEBFFEEECFFEFEDFFF1F0FFCFCBFFCDC8FFCFCAFFD0CBFFD1CDFFD2CE
    FFD3CFD1C5C4E1CCCAE8CFCC221D1C3C3332B39996FFDBD7EACAC6BFA6A3493F
    3E9B8885FFE0DDFFE1DEFFE2DFFFE3E1FFE4E2FFE7E6655B5A6A616069605FD5
    C3C2FFEBE9FFECEAFFEDEBFFF0EEFFCEC9FFCCC7F9C8C4CFA7A4786260403433
    403534C8B0AEFFDCD8EAD5D328242507060A070612231D35F0CDCA8572713F36
    36A89290FFDEDBFFDFDDFFE0DDFFE2DFFFE3E0FFECEAF5E6E54A4443564E4D57
    4F4EE1CECDFFEBE9FFECEAFFEEECFFCDC7FFCBC6D1A7A379616D151134000034
    231C339B807DFFD3CEF0D7D5534F7D0000040000180F0E2FFFDBD9473D3C2A24
    24A8918FCCB1AE8675734038379684839B89884B4342A89694F3E0DF201D1D41
    3A3A595151ECD8D7FFEBE9FFEDEBFFCBC7FFCAC5F0BEBA0F0CB4000090000075
    2C2441A88A86FFD2CDFFE5E26C6CBF00000000001A1E192DFFDEDB1C1C1C2822
    22A8908EFFDDDA0E0C0C1E1A1A6B5E5C3D36350000001E1A1AFFEAE7CABBB90E
    0C0C383332847877FFE9E8FFECEAFFCAC6FFC8C3FFD5D13939DA0000CD00007A
    2A223E9C7F7CFFD0CCFFE1DF8282E730303000000D14111EFFE0DE2E2E2E2A24
    239C8584FFECEBC2BABAAD9D9B8E7D7B322C2B1916159E8C8BAB9C9AFFF1F082
    7B7B221E1E403A39D5C2C0FFEAE8FFC9C4FFC7C2FFD5D13D3DDA0000CF00007A
    1E18337D6563F6C8C3FFD9D67C7CE642425F000007131015FFE2DF3939392B24
    247D6A68FFE5E2FFE9E6FFECE9B1A5A33F3F3F332D2CECCFCDFFE6E3FFEEEDE2
    D4D30000002F2B2A867978FFE9E7FFC7C3FFC5C0FFD2CE3434D90000CF00008A
    110E334A3B3ACCA4A1D6B5D37878E6545494000000110F11FFDFDC7169681F1A
    194B403EF0CCC8DEBEBAF6D3CFB29D9B1010102C26267869688C7B79C8B0AEFF
    EFED5F5B5B211E1D47403FFFE8E7FFC7C2FFC4BFE1B2C60D0DD10000CF0000A6
    0807342F25333C30326E59781F1FC62E2E9E000000100D0DD2AFAA8D7C7B0000
    003C3332C5A7A4E0BFBC8F7A787F6F6D000000564A496D5E5D1E1A19514746FF
    ECEBADA2A10000003C3535FFE7E5FFC6C0FFC3BE6A53CA0000C00000CF0000BE
    0000680000340000340A0A734646AD6161943131310B0909635250DECCCA2222
    222721208A7472FFE3E1DDCECDABAAA97C7574FFE6E4C1BAB9232121CEB3B1FF
    E8E6D2C4C20303032F2A29FFE6E3FFC5BFFFC1BC8783E47575E53939DA0000CF
    0000CF0000CF0000CF1C1CD45E5EE19393E37E7D84110D0D866D6BFFECE98F88
    882C2423413635FFD6D2FFEAE8FFEEECFFE2DFFFE7E4FFEFEEFFE6E4FFE0DDFF
    E3E1F4DFDD2B2B2B2A2524FFE5E2FFC4BEFFC0BAF3E0E8CAC1EC8181E70A0AD1
    1010D23333D98585E88585E82727D66F6FC787838F0000003B302FFFD2CDEACF
    CC0C0A0A2F2726635351F5CECAFFD7D3FFD8D4FFD9D5FFDAD7FFDBD8FFDCD9FF
    DEDBFFE7E43939392F2929FFE4E1FFC2BCFFBFB9FFD6D2FFE0DD7F7DE42A2AD7
    0000BD7E62B6FFE5E3A69FE62121D537379BA6A2B1807C7B5C4A496F5A58604E
    4D614F4E141111483C3B9C8280FFD6D2FFD7D3FFD8D4FFD9D6FFDAD7FFDBD8FF
    DCD9FFE5E3454545453D3CFFE3E0FFC1BBFFBEB8FFBFB9FFD8D5877DDD4F4FDE
    0000791E1732E6B3AD463FD50000C9000079968D99F2DCD9A0908EAFA2A07D7A
    79D4C4C3A99B9A4F41406B5957B79995FFD6D2FFD6D3FFD8D4FFD9D5FFDAD6FF
    DBD7FFE6E44545456E605EFFE1DEFFC0BAFFBDB7FFBEB8FFD6D2B39DD85B5BE0
    00008A0C0933C295912121D50000CD0000616A5659FFDBD8FFE2DFFFE8E6FFE3
    E0FFE2DFFFE9E7AF9E9D715D5BA28684ECC4C1FFD5D1FFD6D3FFD7D4FFD8D5F9
    D4D1FFE9E6605B5AB69E9BFFE0DDFFBFB8FFBCB6FFBDB7FFD0CBD2B3D55A5AE0
    0000B7000034785C7D0000C50606D0070657785E5CFFCAC5FFCAC5FFCBC6FFCD
    C7FFCDC9FFDBD7FFE4E1BDA5A3D7B2AEF8CDC9FFD4D0FFD5D1FFD7D3FFD7D3FF
    D9D6EDDAD9BEACAAF9D6D3FFDFDBFFBEB8FFBBB5FFBCB6FFC8C3F5CDD25D5DE1
    1C1CD4000069231A900000B60000C41F185AA17E7AFFC8C3FFC9C3FFCAC5FFCB
    C6FFCCC8FFCDC9FFCECAFFD0CBFFD1CDFFD2CEFFD3CFFFD4D0FFD5D1FFD6D3FF
    D7D3FFD8D5FFD9D6FFDAD7FFDEDAFFBDB7FFBAB3FFBBB4FFBFB9FFD8D48179DF
    5151DE0000B70000C00000C800009E3D2F58C99B97FFC6C1FFC7C2FFC9C4FFC9
    C5FFCCC6FFCCC7FFCDC9FFCECAFFCFCBFFD0CCFFD2CDFFD3CFFFD4CFFFD5D1FF
    D6D2FFD7D3FFD8D4FFD9D6FFDCD8FFBCB7FFB9B2FFBAB3FFBBB4FFD8D3B9A4DA
    6C6CE30000CF0000CF0000CF00007A533F56FBC0BBFFC5BFFFC6C1FFC7C2FFC8
    C3FFC9C4FFCBC6FFCCC7FFCDC8FFCECAFFD0CBFFD0CCFFD2CDFFD3CEFFD4CFFF
    D5D1FFD6D2FFD7D3FFD8D4FFDBD8FFBBB5FFB8B2FFB9B3FFBAB4FFCDC8EFD2DC
    8B8BE95E5EE11C1CD40C0CD100006E8A6966FFC5C0FFC4BEFFC5C0FFC6C1FFC7
    C2FFC8C3FFCAC4FFCBC6FFCCC7FFCDC8FFCEC9FFCFCBFFD0CCFFD1CDFFD2CEFF
    D3D0FFD5D1FFD6D2FFD7D3FFDAD7FFBAB5FFB7B1FFB8B2FFB9B3FFBEB9FFDEDB
    D8C8E6ABA6E95151DE0000CA2D226AC99893FFC1BCFFC2BDFFC4BEFFC5BFFFC6
    C0FFC7C2FFC8C3FFC9C4FFCBC5FFCCC7FFCDC8FFCEC9FFCFCBFFD0CCFFD1CDFF
    D2CEFFD4CFFFD5D1FFD5D2FFD9D6FFBAB4FFB7AFFFB8B0FFB8B2FFB8B3FFC9C3
    FFD9D5C7B5E28282E70F0FD2AD829EFFC0BAFFC0BAFFC1BCFFC2BDFFC3BEFFC5
    BFFFC6C0FFC7C1FFC8C3FFC8C4FFCAC6FFCBC7FFCCC8FFCEC9FFCFCAFFD0CBFF
    D0CDFFD2CEFFD3CFFFD4D0FFD8D4FFB8B1FFB6AFFFB6AFFFB7B1FFB8B1FFB8B2
    FFCFCBCEBEE5C2B7E8C9A2CAFFC0BBFFC0BAFFBFB9FFC0BAFFC1BCFFC2BCFFC3
    BEFFC4BEFFC5C0FFC7C1FFC7C2FFC9C4FFCAC5FFCBC6FFCDC8FFCEC9FFCFCAFF
    D0CBFFD1CCFFD2CEFFD3CFFFD6D2FFBEB8FFB9B3FFBAB4FFBAB4FFBBB5FFBCB6
    FFBCB7FFBDB7FFBEB8FFBFB9FFC0BAFFC1BBFFC2BCFFC3BCFFC4BEFFC5BFFFC6
    C0FFC7C2FFC7C3FFC8C4FFC9C5FFCBC6FFCCC7FFCDC8FFCEC9FFCFCAFFD0CCFF
    D1CDFFD3CEFFD4CFFFD5D1FFD8D5FFBEB8FFB9B3FFBAB4FFBAB4FFBBB5FFBCB6
    FFBCB7FFBDB7FFBEB8FFBFB9FFC0BAFFC1BBFFC2BCFFC3BCFFC4BEFFC5BFFFC6
    C0FFC7C2FFC7C3FFC8C4FFC9C5FFCBC6FFCCC7FFCDC8FFCEC9FFCFCAFFD0CCFF
    D1CDFFD3CEFFD4CFFFD5D1FFD8D5FFBEB8FFB9B3FFBAB4FFBAB4FFBBB5FFBCB6
    FFBCB7FFBDB7FFBEB8FFBFB9FFC0BAFFC1BBFFC2BCFFC3BCFFC4BEFFC5BFFFC6
    C0FFC7C2FFC7C3FFC8C4FFC9C5FFCBC6FFCCC7FFCDC8FFCEC9FFCFCAFFD0CCFF
    D1CDFFD3CEFFD4CFFFD5D1FFD8D5FFBEB8FFB9B3FFBAB4FFBAB4FFBBB5FFBCB6
    FFBCB7FFBDB7FFBEB8FFBFB9FFC0BAFFC1BBFFC2BCFFC3BCFFC4BEFFC5BFFFC6
    C0FFC7C2FFC7C3FFC8C4FFC9C5FFCBC6FFCCC7FFCDC8FFCEC9FFCFCAFFD0CCFF
    D1CDFFD3CEFFD4CFFFD5D1FFD8D5000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000280000001000000020000000010018000000
    00004003000000000000000000000000000000000000FED8D5FCD4D2FBD7D4F9
    D8D3F8D9D5F7D8D6F7DAD8F8DDDAF8E0DDF8E2E0F8E3E2F8E6E4F8E7E6F9EAE9
    F9EBEAFBF1F0FED8D5FCD4D2FBD7D4F9D8D3F8D9D5F7D8D6F7DAD8F8DDDAF8E0
    DDF8E2E0F8E3E2F8E6E4F8E7E6F9EAE9F9EBEAFBF1F0FFD2CDFED3CEFFDFDDFF
    E7E3FFFFFEFFFFFEFFFFFDFFEAE5FFFDFAFFF5F4FEE4E1FFE7E5FFFFFFFFFDFB
    FFFAF8FEF1EFFFD4CEDFB4A4C5A280BF9E93000000000000000012E6C5BE3831
    308D7B7BFFFFFFFFFFFF24221FD5C2C1AB9C9BFFFFFFFFE2CAAA85B100006E41
    304CFFFFFF000041000009D6B1A00007076B5F5CDDC0BE9B8886988988000000
    877A7BE0D2CFFFDEC7AA96DB0000D5765C68FFE6FF777FFF000009D0ABA70708
    09C9ADAA0000002D26271312120000004C4442968A89FFDBC5BA9BD20000912C
    235AFFEC973640FF000001EBCBC9060606FFD9D7FFFFFF0000004B413EFFFCFB
    0608089D8E8DFFE6C3101ED90000E30000540000A57F78E0080C006D5E5D1E19
    19A88A85B9A4A40E1718000000BAB0AE0000008D7D7CFFCBBFD5C0DA5760E407
    04DF6259DF7878FF736E60665E5BAB8C88000000FFFFFFC0BBB9FFFFFFF1E6E6
    564F4D4F494AFFC3BDFFFFD0444ADC382DCEA790CB1512DFECDCCA1C1F1CA595
    93000000957977D2ACA7FFDFDCFFFFFF2D2C2CA3908EFFC1BBFFE4C99182D500
    00C6AD82AE000093FAD8B0FFFFFF7A7A7CFFFFFF252426D6B0ABFBD2CFFFFFFF
    161A1DFFFFFFFFBFBAFFCFC3C8ACD30006D70000C2000083D6A284FFCBC4FFCB
    C6FFCCC7FFE1DBFFD9D4FFD4CFFFD5D1FFEAE4FFDDDBFFBDB8FFC2BCFFE8D23B
    4AE1070BE71C1472FFC6AAFFC7C1FFC8C3FFCAC5FFCDC8FFCFCBFFD1CDFFD4CF
    FFD6D2FFDBD8FFBBB4FFBBB3FFD4CBF8DFDB0016E7C38AB6FFD5BEFFC3BEFFC6
    C0FFC8C3FFCAC5FFCDC8FFCECAFFD1CCFFD3CFFFD8D5FFC2BCFFBDB6FFC5BFFF
    D7D2EFC8D0FFDBC3FFC6C1FFC7C2FFC9C3FFCBC6FFCCC8FFCFCBFFD1CCFFD4CE
    FFD5D0FFDBD7FFC6C1FFC6C1FFC6C1FFC6C1FFC6C1FFC6C1FFC6C1FFC7C2FFC9
    C3FFCBC6FFCCC8FFCFCBFFD1CCFFD4CEFFD5D0FFDBD700000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 481
    Height = 424
    ActivePage = TabSheet1
    Align = alClient
    Images = ImageList1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Simple expressions'
      ImageIndex = 3
      DesignSize = (
        473
        391)
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 40
        Height = 13
        Caption = 'Formula:'
      end
      object Label6: TLabel
        Left = 8
        Top = 32
        Width = 33
        Height = 13
        Caption = 'Result:'
      end
      object Label2: TLabel
        Left = 8
        Top = 80
        Width = 54
        Height = 13
        Caption = 'Vars count:'
      end
      object Label5: TLabel
        Left = 144
        Top = 56
        Width = 46
        Height = 13
        Caption = 'Variables:'
      end
      object Label4: TLabel
        Left = 8
        Top = 152
        Width = 129
        Height = 33
        AutoSize = False
        Caption = 'Note: functions names '#13#10'are case insensitive'
        WordWrap = True
      end
      object Label3: TLabel
        Left = 8
        Top = 224
        Width = 97
        Height = 13
        Caption = 'Number of iterations:'
      end
      object Bevel1: TBevel
        Left = 0
        Top = 200
        Width = 461
        Height = 9
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object Label7: TLabel
        Left = 178
        Top = 195
        Width = 60
        Height = 13
        Anchors = [akTop]
        Caption = ' Benchmark '
      end
      object text: TComboBox
        Left = 64
        Top = 6
        Width = 354
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = True
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 0
        Text = 'x+y*(5-3)^2'
        Items.Strings = (
          'x+y*(5-3)^2'
          'sqrt(x+2*sin(pi/y))'
          'rnd()'
          'avg(myarray) {myarray is user defined constant = 1,2,3,4,5}'
          'sqrt(variance(1,2,3,4)) - stddev(1,2,3,4)'
          'about {User defined function}'
          
            'block($y:=1; while x>1 do $y:=$y*$x; $x:=x-1 wend; msg('#39'x!='#39'@$y,' +
            #39'Res'#39',$040); $y)')
      end
      object Button3: TButton
        Left = 433
        Top = 2
        Width = 33
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '='
        TabOrder = 1
        OnClick = Button3Click
      end
      object res: TEdit
        Left = 64
        Top = 28
        Width = 354
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object cnt: TEdit
        Left = 64
        Top = 76
        Width = 49
        Height = 21
        TabOrder = 3
        Text = '2'
        OnChange = cntChange
      end
      object ud: TUpDown
        Left = 113
        Top = 76
        Width = 20
        Height = 21
        Associate = cnt
        Position = 2
        TabOrder = 4
      end
      object Grd: TStringGrid
        Left = 144
        Top = 72
        Width = 274
        Height = 113
        Anchors = [akLeft, akTop, akRight]
        ColCount = 2
        Ctl3D = True
        DefaultColWidth = 95
        DefaultRowHeight = 18
        FixedColor = 15790320
        FixedCols = 0
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing]