unit1.~dfm

字符串转换为各种类型

object Form1: TForm1
  Left = 349
  Top = 192
  Width = 305
  Height = 261
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 14
  object lbl1: TLabel
    Left = 16
    Top = 16
    Width = 191
    Height = 14
    Caption = #21028#26029#25968#25454#31867#22411#26159#21542#21512#27861'('#21512#27861#26080#25552#31034'):'
  end
  object lbledt1: TLabeledEdit
    Left = 64
    Top = 36
    Width = 137
    Height = 22
    EditLabel.Width = 17
    EditLabel.Height = 14
    EditLabel.Caption = 'Int: '
    LabelPosition = lpLeft
    TabOrder = 0
    Text = '52'
  end
  object lbledt2: TLabeledEdit
    Left = 64
    Top = 73
    Width = 137
    Height = 22
    EditLabel.Width = 27
    EditLabel.Height = 14
    EditLabel.Caption = 'date: '
    LabelPosition = lpLeft
    TabOrder = 1
    Text = '2008-02-28'
  end
  object lbledt3: TLabeledEdit
    Left = 64
    Top = 108
    Width = 137
    Height = 22
    EditLabel.Width = 25
    EditLabel.Height = 14
    EditLabel.Caption = 'time: '
    LabelPosition = lpLeft
    TabOrder = 2
    Text = '19:22:14'
  end
  object lbledt4: TLabeledEdit
    Left = 64
    Top = 149
    Width = 137
    Height = 22
    EditLabel.Width = 27
    EditLabel.Height = 14
    EditLabel.Caption = 'float: '
    LabelPosition = lpLeft
    TabOrder = 3
    Text = '3.1415927'
  end
  object lbledt5: TLabeledEdit
    Left = 64
    Top = 188
    Width = 137
    Height = 22
    EditLabel.Width = 51
    EditLabel.Height = 14
    EditLabel.Caption = 'Currency: '
    LabelPosition = lpLeft
    TabOrder = 4
    Text = '5.26'
  end
  object btn1: TBitBtn
    Left = 216
    Top = 34
    Width = 57
    Height = 25
    Caption = 'Try'
    TabOrder = 5
    OnClick = btn1Click
  end
  object btn2: TBitBtn
    Left = 216
    Top = 71
    Width = 57
    Height = 25
    Caption = 'Try'
    TabOrder = 6
    OnClick = btn2Click
  end
  object btn3: TBitBtn
    Left = 216
    Top = 106
    Width = 57
    Height = 25
    Caption = 'Try'
    TabOrder = 7
    OnClick = btn3Click
  end
  object btn4: TBitBtn
    Left = 216
    Top = 147
    Width = 57
    Height = 25
    Caption = 'Try'
    TabOrder = 8
    OnClick = btn4Click
  end
  object btn5: TBitBtn
    Left = 216
    Top = 186
    Width = 57
    Height = 25
    Caption = 'Try'
    TabOrder = 9
    OnClick = btn5Click
  end
end