unit1.dfm

完成多项式的运算

object Form1: TForm1
  Left = 302
  Top = 282
  Caption = #22810#39033#24335#35745#31639
  ClientHeight = 285
  ClientWidth = 496
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 84
    Height = 13
    Caption = #35831#36755#20837#34920#36798#24335' :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 328
    Top = 224
    Width = 28
    Height = 13
    Caption = #32467#26524':'
  end
  object Label3: TLabel
    Left = 328
    Top = 250
    Width = 48
    Height = 26
    Caption = #36719#20214'5'#29677'  '#21253#21253#21046#20316
    WordWrap = True
  end
  object Edit1: TEdit
    Left = 112
    Top = 8
    Width = 369
    Height = 19
    Color = clMoneyGreen
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -11
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyPress = Edit1KeyPress
  end
  object Button1: TButton
    Left = 408
    Top = 48
    Width = 65
    Height = 25
    Caption = #24320#22987#35745#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 328
    Top = 48
    Width = 65
    Height = 25
    Caption = #26597#30475#22534#26632
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object ListBox1: TListBox
    Left = 32
    Top = 48
    Width = 289
    Height = 233
    Color = clYellow
    Font.Charset = GB2312_CHARSET
    Font.Color = clFuchsia
    Font.Height = -12
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ItemHeight = 12
    ParentFont = False
    TabOrder = 3
  end
  object memo1: TMemo
    Left = 320
    Top = 80
    Width = 169
    Height = 137
    Color = clHotLight
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    Lines.Strings = (
      #25105#30340#31243#24207#23454#29616#22810#39033#24335#30340
      #35745#31639','#21487#20197#23454#29616'+ - *  / '
      ' %('#20313#25968')^('#20056#26041')'#20889
      #26102#35831#27880#24847#25805#20316#25968#20026#25972#25968
      ','#36824#35201#25324#21495#35201#21305#37197#21704'.'#28857
      '"'#24320#22987#35745#31639'"'#30452#25509#30475#32467#26524','
      #28857'"'#26597#30475#22534#26632'"'#21487#20197#30475#21040
      #31243#24207#30340#25191#34892#27493#39588#21644#22534#26632
      #24773#20917','#35874#35874'!')
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object Button3: TButton
    Left = 400
    Top = 248
    Width = 81
    Height = 25
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = Button3Click
  end
  object Edit2: TEdit
    Left = 368
    Top = 224
    Width = 57
    Height = 22
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 448
    Top = 216
  end
end