fmdemomain.dfm

这是不可多得的源代码

object Form1: TForm1
  Left = 136
  Top = 172
  Width = 657
  Height = 363
  Caption = 'TPersistent'#31867#20351#29992#33539#20363
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object Image1: TImage
    Left = 368
    Top = 8
    Width = 273
    Height = 257
    Stretch = True
  end
  object btnCreateObject: TButton
    Left = 8
    Top = 216
    Width = 169
    Height = 49
    Caption = #21019#24314'TMyPersistent'#23545#35937
    TabOrder = 0
    OnClick = btnCreateObjectClick
  end
  object ledtiValue: TLabeledEdit
    Left = 36
    Top = 32
    Width = 273
    Height = 23
    EditLabel.Width = 48
    EditLabel.Height = 15
    EditLabel.Caption = 'iValue'
    TabOrder = 1
  end
  object ledtbValue: TLabeledEdit
    Left = 36
    Top = 80
    Width = 273
    Height = 23
    EditLabel.Width = 48
    EditLabel.Height = 15
    EditLabel.Caption = 'bValue'
    TabOrder = 2
  end
  object ledtfValue: TLabeledEdit
    Left = 36
    Top = 128
    Width = 273
    Height = 23
    EditLabel.Width = 48
    EditLabel.Height = 15
    EditLabel.Caption = 'fValue'
    TabOrder = 3
  end
  object ledtsValue: TLabeledEdit
    Left = 36
    Top = 176
    Width = 273
    Height = 23
    EditLabel.Width = 48
    EditLabel.Height = 15
    EditLabel.Caption = 'sValue'
    TabOrder = 4
  end
  object btnClearObject: TButton
    Left = 8
    Top = 272
    Width = 169
    Height = 49
    Caption = #28165#38500'TMyPersistent'#23545#35937
    TabOrder = 5
    OnClick = btnClearObjectClick
  end
  object btnLoadObject: TButton
    Left = 192
    Top = 272
    Width = 169
    Height = 49
    Caption = #36733#20837'TMyPersistent'#23545#35937
    TabOrder = 6
    OnClick = btnLoadObjectClick
  end
  object btnSaveObject: TButton
    Left = 192
    Top = 216
    Width = 169
    Height = 49
    Caption = #20648#23384'TMyPersistent'#23545#35937
    TabOrder = 7
    OnClick = btnSaveObjectClick
  end
  object btnLoadImage: TButton
    Left = 384
    Top = 280
    Width = 249
    Height = 41
    Caption = #36733#20837#22270#29255
    TabOrder = 8
    OnClick = btnLoadImageClick
  end
  object opdDlg: TOpenPictureDialog
    Left = 320
    Top = 8
  end
end