fto3.~dfm

用delphi实现的各种排序算法

  object Edit4: TEdit
    Tag = 14
    Left = 197
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 13
  end
  object Edit5: TEdit
    Tag = 15
    Left = 250
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 14
  end
  object Edit6: TEdit
    Tag = 16
    Left = 302
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 15
  end
  object Edit7: TEdit
    Tag = 17
    Left = 355
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 16
  end
  object Edit8: TEdit
    Tag = 18
    Left = 407
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 17
  end
  object Edit9: TEdit
    Tag = 19
    Left = 460
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 18
  end
  object Edit10: TEdit
    Tag = 20
    Left = 512
    Top = 280
    Width = 49
    Height = 21
    TabOrder = 19
  end
  object Button1: TButton
    Left = 55
    Top = 118
    Width = 83
    Height = 25
    Caption = '直接插入'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 56
    Top = 150
    Width = 83
    Height = 25
    Caption = '二分插入'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 56
    Top = 182
    Width = 83
    Height = 25
    Caption = '希尔排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 22
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 192
    Top = 118
    Width = 84
    Height = 25
    Caption = '气泡排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 23
    OnClick = Button4Click
  end
  object SpinEdit11: TSpinEdit
    Left = 440
    Top = 15
    Width = 46
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 24
    Value = 0
  end
  object SpinEdit12: TSpinEdit
    Left = 512
    Top = 16
    Width = 44
    Height = 22
    MaxValue = 10
    MinValue = 0
    TabOrder = 25
    Value = 10
  end
  object Button5: TButton
    Left = 240
    Top = 368
    Width = 75
    Height = 25
    Caption = '退出'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 26
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 192
    Top = 223
    Width = 85
    Height = 25
    Caption = '排成三段'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 27
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 39
    Top = 16
    Width = 75
    Height = 25
    Caption = '随机选数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 28
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 192
    Top = 182
    Width = 85
    Height = 25
    Caption = '快速排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 29
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 330
    Top = 149
    Width = 83
    Height = 25
    Caption = '树选排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 30
  end
  object Button10: TButton
    Left = 329
    Top = 180
    Width = 83
    Height = 25
    Caption = '递归堆排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 31
    OnClick = Button10Click
  end
  object Button11: TButton
    Left = 461
    Top = 118
    Width = 83
    Height = 25
    Caption = '合并排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 32
    OnClick = Button11Click
  end
  object Button12: TButton
    Left = 459
    Top = 182
    Width = 83
    Height = 25
    Caption = '基数排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 33
    OnClick = Button12Click
  end
  object Button14: TButton
    Left = 116
    Top = 16
    Width = 75
    Height = 25
    Caption = '顺序选数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 34
    OnClick = Button14Click
  end
  object Button15: TButton
    Left = 193
    Top = 16
    Width = 75
    Height = 25
    Caption = '逆序选数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 35
    OnClick = Button15Click
  end
  object Button16: TButton
    Left = 329
    Top = 213
    Width = 83
    Height = 25
    Caption = '循环堆排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 40
    OnClick = Button16Click
  end
  object Button17: TButton
    Left = 329
    Top = 245
    Width = 83
    Height = 25
    Caption = '改进堆排序'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 41
    OnClick = Button17Click
  end
  object Button18: TButton
    Left = 270
    Top = 16
    Width = 93
    Height = 25
    Caption = '基数排序选数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 42
    OnClick = Button18Click
  end
  object MainMenu1: TMainMenu
    Left = 456
    Top = 65520
    object N1: TMenuItem
      Caption = '选择数据'
      object N2: TMenuItem
        Caption = '随机选数'
        OnClick = Button7Click
      end
      object N3: TMenuItem
        Caption = '顺序选数'
        OnClick = Button14Click
      end
      object N4: TMenuItem
        Caption = '逆序选数'
        OnClick = Button15Click
      end
      object N5: TMenuItem
        Caption = '基数排序选数'
        OnClick = Button18Click
      end
      object N25: TMenuItem
        Caption = '-'
      end
      object N26: TMenuItem
        Caption = '退出'
        OnClick = N26Click
      end
    end
    object N6: TMenuItem
      Caption = '插入排序'
      object N7: TMenuItem
        Caption = '直接插入'
        OnClick = Button1Click
      end
      object N8: TMenuItem
        Caption = '二分插入'
        OnClick = Button2Click
      end
      object N9: TMenuItem
        Caption = '希尔排序'
        OnClick = Button3Click
      end
    end
    object N10: TMenuItem
      Caption = '交换排序'
      object N11: TMenuItem
        Caption = '气泡排序'
        OnClick = Button4Click
      end
      object N12: TMenuItem
        Caption = '快速排序'
        OnClick = Button8Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N14: TMenuItem
        Caption = '排成三段'
        OnClick = Button6Click
      end
    end
    object N15: TMenuItem
      Caption = '选择排序'
      object N16: TMenuItem
        Caption = '简单选择排序'
        OnClick = Button13Click
      end
      object N17: TMenuItem
        Caption = '树选排序'
      end
      object N18: TMenuItem
        Caption = '堆排序'
        object N19: TMenuItem
          Caption = '递归实现'
          OnClick = Button10Click
        end
        object N20: TMenuItem
          Caption = '循环实现'
          OnClick = Button16Click
        end
        object N21: TMenuItem
          Caption = '改进实现'
          OnClick = Button17Click
        end
      end
    end
    object N22: TMenuItem
      Caption = '合并排序'
    end
    object N23: TMenuItem
      Caption = '基数排序'
    end
    object N24: TMenuItem
      Caption = '关于'
      OnClick = N24Click
    end
  end
end