unit1_compl.dfm

数据结构作业 复数运算代码。 可处理复数加减乘除运算。 图形界面。

object Form1: TForm1
  Left = 193
  Top = 130
  Width = 558
  Height = 567
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object LabelA: TLabel
    Left = 56
    Top = 56
    Width = 13
    Height = 20
    Caption = 'A'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelB: TLabel
    Left = 56
    Top = 88
    Width = 13
    Height = 20
    Caption = 'B'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelC: TLabel
    Left = 56
    Top = 120
    Width = 13
    Height = 20
    Caption = 'C'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelD: TLabel
    Left = 56
    Top = 152
    Width = 14
    Height = 20
    Caption = 'D'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelE: TLabel
    Left = 56
    Top = 184
    Width = 13
    Height = 20
    Caption = 'E'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelF: TLabel
    Left = 56
    Top = 216
    Width = 12
    Height = 20
    Caption = 'F'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelG: TLabel
    Left = 56
    Top = 248
    Width = 15
    Height = 20
    Caption = 'G'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelH: TLabel
    Left = 56
    Top = 280
    Width = 14
    Height = 20
    Caption = 'H'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelI: TLabel
    Left = 56
    Top = 312
    Width = 7
    Height = 20
    Caption = 'I'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelJ: TLabel
    Left = 56
    Top = 344
    Width = 10
    Height = 20
    Caption = 'J'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelReal: TLabel
    Left = 80
    Top = 32
    Width = 66
    Height = 16
    Caption = 'Real Part'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelImage: TLabel
    Left = 160
    Top = 32
    Width = 76
    Height = 16
    Caption = 'Image Part'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Result: TLabel
    Left = 80
    Top = 480
    Width = 329
    Height = 49
    Cursor = crHandPoint
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LabelResult: TLabel
    Left = 80
    Top = 448
    Width = 64
    Height = 20
    Caption = 'Result:)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ValueA: TLabel
    Left = 248
    Top = 56
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueB: TLabel
    Left = 248
    Top = 88
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueC: TLabel
    Left = 248
    Top = 120
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueD: TLabel
    Left = 248
    Top = 152
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueE: TLabel
    Left = 248
    Top = 184
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueF: TLabel
    Left = 248
    Top = 216
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueG: TLabel
    Left = 248
    Top = 248
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueH: TLabel
    Left = 248
    Top = 280
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueI: TLabel
    Left = 248
    Top = 312
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ValueJ: TLabel
    Left = 248
    Top = 344
    Width = 32
    Height = 20
    Caption = '(0,0)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LabelClew: TLabel
    Left = 80
    Top = 392
    Width = 122
    Height = 16
    Caption = 'Without any constant'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LabelExp: TLabel
    Left = 80
    Top = 368
    Width = 113
    Height = 17
    AutoSize = False
    Caption = 'Expression :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object LabelVa: TLabel
    Left = 80
    Top = 8
    Width = 76
    Height = 20
    Caption = 'Varibles :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object A_re: TEdit
    Left = 80
    Top = 56
    Width = 65
    Height = 21
    TabOrder = 0
    Text = '0'
    OnChange = A_reChange
  end
  object B_re: TEdit
    Left = 80
    Top = 88
    Width = 65
    Height = 21
    TabOrder = 2
    Text = '0'
    OnChange = B_reChange
  end
  object C_re: TEdit
    Left = 80
    Top = 120
    Width = 65
    Height = 21
    TabOrder = 4
    Text = '0'
    OnChange = C_reChange
  end
  object D_re: TEdit
    Left = 80
    Top = 152
    Width = 65
    Height = 21
    TabOrder = 6
    Text = '0'
    OnChange = D_reChange
  end
  object E_re: TEdit
    Left = 80
    Top = 184
    Width = 65
    Height = 21
    TabOrder = 8
    Text = '0'
    OnChange = E_reChange
  end
  object A_im: TEdit
    Left = 160
    Top = 56
    Width = 65
    Height = 21
    TabOrder = 1
    Text = '0'
    OnChange = A_imChange
  end
  object B_im: TEdit
    Left = 160
    Top = 88
    Width = 65
    Height = 21
    TabOrder = 3
    Text = '0'
    OnChange = B_imChange
  end
  object C_im: TEdit
    Left = 160
    Top = 120
    Width = 65
    Height = 21
    TabOrder = 5
    Text = '0'
    OnChange = C_imChange
  end
  object D_im: TEdit
    Left = 160
    Top = 152
    Width = 65
    Height = 21
    TabOrder = 7
    Text = '0'
    OnChange = D_imChange
  end
  object E_im: TEdit
    Left = 160
    Top = 184
    Width = 65
    Height = 21
    TabOrder = 9
    Text = '0'
    OnChange = E_imChange
  end
  object F_im: TEdit
    Left = 160
    Top = 216
    Width = 65
    Height = 21
    TabOrder = 11
    Text = '0'
    OnChange = F_imChange
  end
  object G_im: TEdit
    Left = 160
    Top = 248
    Width = 65
    Height = 21
    TabOrder = 13
    Text = '0'
    OnChange = G_imChange
  end
  object H_im: TEdit
    Left = 160
    Top = 280
    Width = 65
    Height = 21
    TabOrder = 15
    Text = '0'
    OnChange = H_imChange
  end
  object I_im: TEdit
    Left = 160
    Top = 312
    Width = 65
    Height = 21
    TabOrder = 17
    Text = '0'
    OnChange = I_imChange
  end
  object J_im: TEdit
    Left = 160
    Top = 344
    Width = 65
    Height = 21
    TabOrder = 19
    Text = '0'
    OnChange = J_imChange
  end
  object J_re: TEdit
    Left = 80
    Top = 344
    Width = 65
    Height = 21
    TabOrder = 18
    Text = '0'
    OnChange = J_reChange
  end
  object I_re: TEdit
    Left = 80
    Top = 312
    Width = 65
    Height = 21
    TabOrder = 16
    Text = '0'
    OnChange = I_reChange
  end
  object H_re: TEdit
    Left = 80
    Top = 280
    Width = 65
    Height = 21
    TabOrder = 14
    Text = '0'
    OnChange = H_reChange
  end
  object G_re: TEdit
    Left = 80
    Top = 248
    Width = 65
    Height = 21
    TabOrder = 12
    Text = '0'
    OnChange = G_reChange
  end
  object F_re: TEdit
    Left = 80
    Top = 216
    Width = 65
    Height = 21
    TabOrder = 10
    Text = '0'
    OnChange = F_reChange
  end
  object Expression: TEdit
    Left = 80
    Top = 416
    Width = 329
    Height = 26
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
    OnChange = ExpressionChange
  end
  object ButtonOK: TButton
    Left = 248
    Top = 376
    Width = 65
    Height = 25
    Caption = 'OK'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 21
    OnClick = ButtonOKClick
  end
end