fibonacciunit.~dfm

一个比较好的delphi源程序

object Form1: TForm1
  Left = 235
  Top = 111
  Width = 294
  Height = 325
  Caption = '0121301'#29677' 27'#21495' '#31206#26195#29618
  Color = clSkyBlue
  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 = 24
    Top = 96
    Width = 51
    Height = 20
    Caption = 'n=      '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 136
    Width = 44
    Height = 20
    Caption = 'F(n)='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 32
    Top = 24
    Width = 175
    Height = 24
    Caption = #35745#31639#26000#27874#32435#32423#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 208
    Width = 216
    Height = 14
    Caption = #20989#25968#35828#26126#65306#24403'n=0,1'#26102#65292'F(n)=1;'
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 8
    Top = 224
    Width = 229
    Height = 14
    Caption = #24403' n>1'#26102#65292'F(n)=F(n-1)+F(n-2) '
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 48
    Top = 176
    Width = 133
    Height = 20
    Caption = '('#27880#65306'n'#20026#25972#25968')     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 8
    Top = 64
    Width = 148
    Height = 19
    Caption = #35831#36755#20837'n'#30340#20540#65306' '
    Color = clSkyBlue
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object edit1: TEdit
    Left = 48
    Top = 96
    Width = 89
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 48
    Top = 136
    Width = 89
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 1
  end
  object Button1: TButton
    Left = 152
    Top = 96
    Width = 67
    Height = 25
    Caption = '&calculate'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object BitBtn1: TBitBtn
    Left = 152
    Top = 256
    Width = 67
    Height = 25
    TabOrder = 3
    Kind = bkClose
  end
  object BitBtn2: TBitBtn
    Left = 152
    Top = 136
    Width = 67
    Height = 25
    Caption = '&retry'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn2Click
    Kind = bkRetry
  end
end