fmmain.dfm

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

object Form1: TForm1
  Left = 58
  Top = 162
  Width = 912
  Height = 368
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Button1: TButton
    Left = 40
    Top = 272
    Width = 105
    Height = 49
    Caption = 'Initial Values'
    TabOrder = 0
    OnClick = Button1Click
  end
  object btnAllocate: TButton
    Left = 160
    Top = 272
    Width = 185
    Height = 49
    Caption = 'Allocate 10000 MyObjects'
    TabOrder = 1
    OnClick = btnAllocateClick
  end
  object Button3: TButton
    Left = 360
    Top = 272
    Width = 121
    Height = 49
    Caption = 'Before Allocate'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 488
    Top = 272
    Width = 105
    Height = 49
    Caption = 'After Allocate'
    TabOrder = 3
    OnClick = Button4Click
  end
  object ListBox1: TListBox
    Left = 8
    Top = 8
    Width = 153
    Height = 257
    ItemHeight = 16
    TabOrder = 4
  end
  object lbBefore: TListBox
    Left = 168
    Top = 8
    Width = 233
    Height = 257
    ItemHeight = 16
    TabOrder = 5
  end
  object lbAfter: TListBox
    Left = 408
    Top = 8
    Width = 233
    Height = 257
    ItemHeight = 16
    TabOrder = 6
  end
  object btnFree: TButton
    Left = 600
    Top = 272
    Width = 121
    Height = 49
    Caption = 'Free Allocate'
    TabOrder = 7
    OnClick = btnFreeClick
  end
  object lbFree: TListBox
    Left = 648
    Top = 8
    Width = 233
    Height = 257
    ItemHeight = 16
    TabOrder = 8
  end
  object Button2: TButton
    Left = 728
    Top = 272
    Width = 153
    Height = 49
    Caption = 'Show Free'
    TabOrder = 9
    OnClick = Button2Click
  end
  object Timer1: TTimer
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 408
    Top = 288
  end
end