main.dfm

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

        Left = 250
        Top = 18
        Width = 129
        Height = 29
        Caption = 'ArtFormula'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 248
        Top = 16
        Width = 129
        Height = 29
        Caption = 'ArtFormula'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Bevel3: TBevel
        Left = 192
        Top = 40
        Width = 275
        Height = 9
        Anchors = [akLeft, akTop, akRight]
        Shape = bsBottomLine
      end
      object Label10: TLabel
        Left = 272
        Top = 56
        Width = 169
        Height = 89
        AutoSize = False
        Caption = 
          'nonvisual Delphi component for  '#13#10'symbolic expression parsing '#13#10 +
          'and evaluation.'#13#10'Provides user with '#13#10'runtime scripting engine '#13 +
          #10'for automating your programs.'
      end
      object Label11: TLabel
        Left = 192
        Top = 56
        Width = 81
        Height = 13
        Caption = 'TArtFormula - '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 192
        Top = 152
        Width = 141
        Height = 13
        Caption = 'Programmed by Artem Parlyuk'
      end
      object Label13: TLabel
        Left = 344
        Top = 152
        Width = 96
        Height = 13
        Cursor = crHandPoint
        Caption = 'mailto:[e-mail]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label13Click
        OnMouseEnter = Label13MouseEnter
        OnMouseLeave = Label13MouseLeave
      end
      object Label14: TLabel
        Left = 344
        Top = 166
        Width = 92
        Height = 13
        Cursor = crHandPoint
        Caption = 'http://artsoft.nm.ru '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label13Click
        OnMouseEnter = Label13MouseEnter
        OnMouseLeave = Label13MouseLeave
      end
      object Label15: TLabel
        Left = 224
        Top = 166
        Width = 72
        Height = 13
        Caption = '(c) 2000 - 2007'
      end
      object Memo1: TMemo
        Left = 0
        Top = 200
        Width = 467
        Height = 180
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clBtnFace
        Lines.Strings = (
          '                                               TArtFormula'
          '  ========================================================='
          
            '          Computes symbolic expressions and provides runtime scr' +
            'ipting'
          '  ========================================================='
          '    Supports:'
          '     * 7 arithmetic operations'
          '     * 10 logical operations'
          '     * string concatenation'
          '     * 22 arithmetic functions'
          '     * 10 statistical functions'
          '     * 2 logical functions'
          '     * 16 string functions'
          '     * 13 date functions'
          '     * 14 programming functions'
          '     * User defined constant'
          '     * Up to 255 user defined variables'
          '     * Up to 255 user defined functions (modules)'
          ' '
          
            '  --------------------------------------------------------------' +
            '---------------------------------------------------'
          '    Arithmetic operation: '
          
            '       x + y, x - y, x * y, x / y, x % y (Mod), x ^ y (power), x' +
            '\ y (Div)'
          
            '  --------------------------------------------------------------' +
            '---------------------------------------------------'
          '    Logical operation (true=1, false=0): '
          
            '       x > y, x < y, x >= y, x <= y, x = y, x <> y, ! x (not), x' +
            ' & y (and), '
          '       x | y (or), x xor y'
          
            '  --------------------------------------------------------------' +
            '---------------------------------------------------'
          '    Predefined constants: '
          '      Pi  = 3.1415926535897932385'
          '      True = 1'
          '      False = 0'
          
            '  --------------------------------------------------------------' +
            '---------------------------------------------------'
          '    Functions: '
          '       sin, cos, tan, sinh, cosh, tanh, '
          '       asin, acos, atan, asinh, acosh, atanh,'
          '       sqrt, exp, log, lg  (log base 10), '
          
            '       int (integer part of a number), frac (fractional part of ' +
            'a number), '
          '       abs, sign, rnd, randomize'
          '       '
          '       max(x,y...), min(x,y,...), count(x,y,...),'
          '       sum(x,y,...), sumofsquares(x,y,...), avg(x,y,...), '
          
            '       variance(x,y,...), variancep(x,y,...), stddev(x,y,...), s' +
            'tddevp(x,y,...)'
          ''
          
            '       iff(cond,x,y) (if cond = true then result = x else result' +
            ' = y)'
          '       isnumber(x)'
          ''
          '       chr(x), length(s), trim(s), trimleft(s), trimright(s)'
          '       lowercase(s), uppercase(s), midstr(s,x,y), leftstr(s,x),'
          
            '       rightstr(s,x), pos(s,t), code(s), format(s,x), formatf(s,' +
            'x),'
          '       stringofchar(c,n), concat(s1,s2,...)'
          ''
          '       date(s), now, formatdate(s,d), year(d), month(d), day(d),'
          
            '       hour(d), minute(d), second(d), millisecond(d), isleapyear' +
            '(n),'
          '       dayofweek(d), encodedate(y,m,d)'
          
            '  --------------------------------------------------------------' +
            '---------------------------------------------------'
          '    Programming:'
          '    ==========='
          '    '
          '    Variables definitions:'
          '      Function style:'
          '         define('#39'name'#39',value), defines('#39'name1'#39', '#39'name2'#39',...)'
          '      Script style:   '
          '         var '#39'name1'#39', '#39'name2'#39', ... end'
          ''
          '    Variable value:'
          '      Function style:     val('#39'name'#39')'
          '      Script style:      $name'
          '   '
          '   Assignment statement:'
          '      Function style:     set('#39'name'#39',value)'
          '      Script style:     $name := value  '
          ''
          '   Increment and Decrement:'
          '      Function style:     inc('#39'name'#39'),  dec('#39'name'#39')'
          '      Script style:     $name++;   $name--'
          ''
          '   Return function:  stop the program execution'
          ''
          '  Compound statement:'
          '      Function style:     block(f1, f2, ... )'
          '      Script style:      BEGIN f1; f2; ... END'
          ''
          '   IF statement:'
          '      Function style:      condition(cond, f1, f2)'
          '      Script style:      '
          '          IF cond THEN f1 ELSE f2 END'
          '          IF cond THEN f ENDIF'
          ''
          '   WHILE loop:'
          '      Function style:      loop(cond, f)'
          '      Script style:      WHILE cond DO f WEND'
          ''
          '   UNTIL loop:'
          '      Function style:      till(f, cond)'
          '      Script style:      REPEAT f UNTIL cond END '
          ''
          '   FOR loop:'
          
            '      Function style:     series(init, cond, increment, statment' +
            ')'
          
            '      Script style:      FOR init; cond; increment DO statment N' +
            'EXT'
          '   '
          '   Interface functions:'
          
            '     msg('#39'text'#39','#39'caption'#39',props), input('#39'caption'#39', '#39'text'#39', defva' +
            'lue)'
          ''
          
            ' ---------------------------------------------------------------' +
            '--------------------------------------------------'
          ''
          
            '   TArtFormula provides two styles of programming: formula style' +
            ' and scripting style.'
          
            '   The first style assumes that all statements have the form of ' +
            'function call. '
          
            '   The second style imply that you use common program language n' +
            'otation.'
          '   For example: '
          ''
          
            '     block(defines('#39'i'#39','#39'n'#39'), set('#39'n'#39',1), series(set('#39'i'#39',1), val(' +
            #39'i'#39')<=5, inc('#39'i'#39'), set('#39'n'#39',val('#39'n'#39')*val('#39'i'#39'))), '
          'msg('#39'5! = '#39'+val('#39'n'#39'),'#39'result'#39',0)) '
          ''
          '   Is equal to:'
          ''
          '   begin '
          '     var '#39'i'#39', '#39'n'#39' end;'
          '     $n:=1;'
          '     for $i:=1;  $i<=5;  $i++ do'
          '       $n := $n*$i;'
          '     next;'
          '     msg('#39'5! = '#39'+val('#39'n'#39'),'#39'result'#39',0);'
          '   end'
          ''
          '   You can mix two styles in one program.'
          
            ' ---------------------------------------------------------------' +
            '--------------------------------------------------'
          '    (c) Artem Parlyuk, 2000 - 2007'
          '    www: http://artsoft.nm.ru'
          '    e-mail: [e-mail]'
          ''
          ''
          '')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object ImageList1: TImageList
    Height = 20
    Width = 20
    Left = 148
    Top = 368
    Bitmap = {
      494C010106000900040014001400FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000500000003