countunit.dfm

利用多边形无限接近圆的方法计算π值

object Form1: TForm1
  Left = 348
  Top = 130
  Width = 870
  Height = 500
  Caption = 'Form1'
  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 Button1: TButton
    Left = 72
    Top = 288
    Width = 105
    Height = 81
    Caption = #35745#31639#928#20540
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 272
    Top = 24
    Width = 153
    Height = 697
    Lines.Strings = (
      '')
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 472
    Top = 24
    Width = 753
    Height = 697
    Lines.Strings = (
      '')
    TabOrder = 2
  end
end