sl_1.dfm

超长整数类及演示程序

object Form1: TForm1
  Left = 201
  Top = 93
  Width = 691
  Height = 457
  Caption = 
    #36229#38271#25972#22411#25968#20540#36816#31639#28436#31034#31243#24207' 1.20                    '#35774#35745#65306#32599#22269#25991'      xuefu998@yahoo.' +
    'com.cn'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 30
    Top = 8
    Width = 41
    Height = 20
    Caption = #25968#20540'a'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHotLight
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 30
    Top = 63
    Width = 41
    Height = 20
    Caption = #25968#20540'b'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHotLight
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 30
    Top = 116
    Width = 40
    Height = 20
    Caption = #32467#26524'c'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHotLight
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 78
    Top = 33
    Width = 449
    Height = 24
    TabOrder = 0
    Text = '0'
    OnExit = Edit1Exit
  end
  object Edit2: TEdit
    Left = 78
    Top = 90
    Width = 450
    Height = 24
    TabOrder = 1
    Text = '0'
    OnExit = Edit2Exit
  end
  object Button1: TButton
    Left = 78
    Top = 270
    Width = 75
    Height = 25
    Caption = #21152#27861#36816#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 78
    Top = 310
    Width = 75
    Height = 25
    Caption = #27714#20313#36816#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 195
    Top = 270
    Width = 75
    Height = 25
    Caption = #20943#27861#36816#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 314
    Top = 270
    Width = 75
    Height = 25
    Caption = #20056#27861#36816#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 438
    Top = 270
    Width = 75
    Height = 25
    Caption = #38500#27861#36816#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button5Click
    OnEnter = Button5Click
  end
  object Button6: TButton
    Left = 195
    Top = 310
    Width = 75
    Height = 25
    Caption = #38454#20056#36816#31639
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 437
    Top = 310
    Width = 76
    Height = 25
    Caption = #36864#20986#31243#24207
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 313
    Top = 310
    Width = 75
    Height = 25
    Caption = #24130#36816#31639'a^b'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = Button8Click
  end
  object Memo1: TMemo
    Left = 72
    Top = 144
    Width = 456
    Height = 118
    ScrollBars = ssVertical
    TabOrder = 10
  end
end