mainunit.~dfm

简单功能,实现输入的编号由正向反重新排序

object MainForm: TMainForm
  Left = 315
  Top = 185
  Width = 421
  Height = 292
  Caption = #21345#21495#36716#25442
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 413
    Height = 258
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 413
      Height = 258
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 413
        Height = 145
        Align = alTop
        Caption = '  '#21407#21345#21495' '
        TabOrder = 0
        object Label1: TLabel
          Left = 55
          Top = 31
          Width = 54
          Height = 13
          Caption = #27491#24207#21345#21495'  '
        end
        object Edit1: TEdit
          Left = 119
          Top = 28
          Width = 202
          Height = 21
          TabOrder = 0
          OnKeyPress = Edit1KeyPress
        end
        object RadioButton1: TRadioButton
          Left = 80
          Top = 65
          Width = 73
          Height = 17
          Caption = #21313#36827#21046
          Checked = True
          TabOrder = 1
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 224
          Top = 65
          Width = 81
          Height = 17
          Caption = #21313#20845#36827#21046
          TabOrder = 2
          OnClick = RadioButton2Click
        end
        object RadioButton3: TRadioButton
          Left = 328
          Top = 103
          Width = 62
          Height = 17
          Caption = #20108#36827#21046
          TabOrder = 3
          Visible = False
          OnClick = RadioButton3Click
        end
        object Button1: TButton
          Left = 59
          Top = 98
          Width = 55
          Height = 23
          Caption = #36716#25442
          TabOrder = 4
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 136
          Top = 98
          Width = 55
          Height = 23
          Caption = #28165#31354
          TabOrder = 5
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 212
          Top = 98
          Width = 55
          Height = 23
          Caption = #22797#21046
          TabOrder = 6
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 288
          Top = 98
          Width = 55
          Height = 23
          Caption = #31896#36148
          TabOrder = 7
          OnClick = Button4Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 145
        Width = 413
        Height = 113
        Align = alClient
        Caption = ' '#26032#21345#21495' '
        TabOrder = 1
        object Label2: TLabel
          Left = 55
          Top = 30
          Width = 54
          Height = 13
          Caption = #21453#24207#21345#21495'  '
        end
        object RadioButton4: TRadioButton
          Left = 80
          Top = 80
          Width = 73
          Height = 17
          Caption = #21313#36827#21046
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton4Click
        end
        object RadioButton5: TRadioButton
          Left = 224
          Top = 80
          Width = 81
          Height = 17
          Caption = #21313#20845#36827#21046
          TabOrder = 1
          OnClick = RadioButton5Click
        end
        object RadioButton6: TRadioButton
          Left = 320
          Top = 72
          Width = 62
          Height = 17
          Caption = #20108#36827#21046
          TabOrder = 2
          Visible = False
        end
        object Edit2: TEdit
          Left = 119
          Top = 27
          Width = 202
          Height = 21
          ReadOnly = True
          TabOrder = 3
        end
      end
    end
  end
end