main.xfm

一个简单的表达式解析器 Delphi版

object frmCalc: TfrmCalc
  Left = 269
  Top = 263
  Width = 438
  Height = 152
  VertScrollBar.Range = 116
  HorzScrollBar.Range = 417
  ActiveControl = Edit1
  BorderStyle = fbsDialog
  Caption = 'Expression Calc'
  Color = clBackground
  Font.CharSet = fcsLatin8
  Font.Color = clBlack
  Font.Height = 12
  Font.Name = #23435#20307
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  PixelsPerInch = 75
  TextHeight = 12
  TextWidth = 6
  object Label1: TLabel
    Left = 32
    Top = 28
    Width = 66
    Height = 12
    Caption = 'Expression:'
  end
  object Edit1: TEdit
    Left = 112
    Top = 24
    Width = 209
    Height = 20
    TabOrder = 1
    Text = '12+5*2.5-2.1+10/2.5'
  end
  object btnCalc: TButton
    Left = 352
    Top = 24
    Width = 65
    Height = 25
    Caption = 'Calc'
    TabOrder = 2
    OnClick = btnCalcClick
  end
  object Edit2: TEdit
    Left = 112
    Top = 64
    Width = 209
    Height = 20
    TabOrder = 3
    Text = '0'
  end
  object Label2: TLabel
    Left = 32
    Top = 64
    Width = 42
    Height = 12
    Caption = 'Result:'
  end
  object Label3: TLabel
    Left = 32
    Top = 104
    Width = 48
    Height = 12
    Caption = 'Result2:'
  end
  object Edit3: TEdit
    Left = 112
    Top = 96
    Width = 209
    Height = 20
    TabOrder = 6
    Text = '0'
  end
  object btnExit: TButton
    Left = 352
    Top = 64
    Width = 65
    Height = 25
    Caption = 'Exit'
    TabOrder = 7
    OnClick = btnExitClick
  end
end