u_biginttest.dfm

Delphi的大数运算演示 pudn上大多是VC的 所以传个Delphi的

object bigints: Tbigints
  Left = 228
  Top = 152
  Width = 720
  Height = 545
  Caption = 'Big integers test V2'
  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 Label1: TLabel
    Left = 16
    Top = 32
    Width = 5
    Height = 13
    Caption = 'x'
  end
  object Label2: TLabel
    Left = 16
    Top = 112
    Width = 5
    Height = 13
    Caption = 'y'
  end
  object Label3: TLabel
    Left = 16
    Top = 144
    Width = 5
    Height = 13
    Caption = 'z'
  end
  object Long1Edt: TEdit
    Left = 32
    Top = 32
    Width = 401
    Height = 21
    TabOrder = 0
    Text = '3579771234567'
  end
  object Long2Edt: TEdit
    Left = 32
    Top = 112
    Width = 401
    Height = 21
    TabOrder = 1
    Text = '12'
  end
  object AddBtn: TButton
    Left = 32
    Top = 72
    Width = 33
    Height = 25
    Caption = 'x + y'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = AddBtnClick
  end
  object MultBtn: TButton
    Left = 112
    Top = 72
    Width = 33
    Height = 25
    Caption = 'x * y'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = MultBtnClick
  end
  object FactorialBtn: TButton
    Left = 448
    Top = 32
    Width = 25
    Height = 25
    Hint = 'Factorials limited to 3000!'
    Caption = 'x!'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = FactorialBtnClick
  end
  object SubtractBtn: TButton
    Left = 72
    Top = 72
    Width = 33
    Height = 25
    Caption = 'x - y'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = SubtractBtnClick
  end
  object DivideBtn: TButton
    Left = 152
    Top = 72
    Width = 49
    Height = 25
    Caption = 'x div y'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = DivideBtnClick
  end
  object ModBtn: TButton
    Left = 208
    Top = 72
    Width = 49
    Height = 25
    Caption = 'x mod y'
    TabOrder = 6
    OnClick = ModBtnClick
  end
  object Memo1: TMemo
    Left = 24
    Top = 184
    Width = 641
    Height = 281
    Color = 14548991
    Lines.Strings = (
      
        'This is a test program for Version 2 of our Big Integers unit  (' +
        'UBigIntsV2).  It includes several enhancements and additions.'
      ''
      'Notably:'
      
        '1. The Divide procedure is now many times faster than the previo' +
        'us version.'
      
        '2.. Procedures and functions added in the version used by out Bi' +
        'gFloat unit have been incorporated here.'
      
        '3. The size of the "chunks" used to hold large integers can now ' +
        'range from 10 to 1,000,000 resulting in less space and faster '
      '     execution.'
      
        '4. Viewer Hans Klein has written severl potentially useful  proc' +
        'edures and functions which i have included in this version:'
      '