frm_main.dfm

使用DELPHI编写的自动生成PDU码的事例程序

object Form1: TForm1
  Left = 233
  Top = 212
  Width = 489
  Height = 288
  Caption = 'DEMO'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 15
  object lbl1: TLabel
    Left = 16
    Top = 14
    Width = 90
    Height = 15
    Caption = #30701#20449#20013#24515#21495#30721
  end
  object Label1: TLabel
    Left = 46
    Top = 40
    Width = 60
    Height = 15
    Caption = #25509#25910#21495#30721
  end
  object Label2: TLabel
    Left = 46
    Top = 64
    Width = 60
    Height = 15
    Caption = #30701#20449#20869#23481
  end
  object lbl2: TLabel
    Left = 38
    Top = 200
    Width = 64
    Height = 15
    Caption = 'AT+CMGS='
  end
  object Label3: TLabel
    Left = 57
    Top = 229
    Width = 45
    Height = 15
    Caption = #21457#36865#20018
  end
  object edt1: TEdit
    Left = 109
    Top = 10
    Width = 185
    Height = 23
    TabOrder = 0
    Text = '[phone]'
  end
  object Edit1: TEdit
    Left = 109
    Top = 36
    Width = 185
    Height = 23
    TabOrder = 1
    Text = '[phone]'
  end
  object mmo1: TMemo
    Left = 109
    Top = 64
    Width = 185
    Height = 84
    Lines.Strings = (
      #24037#20316#24841#24555#65281)
    TabOrder = 2
  end
  object btn1: TButton
    Left = 136
    Top = 162
    Width = 86
    Height = 25
    Caption = #20135#29983'PDU'#30721
    TabOrder = 3
    OnClick = btn1Click
  end
  object edt2: TEdit
    Left = 105
    Top = 196
    Width = 116
    Height = 23
    ReadOnly = True
    TabOrder = 4
  end
  object Edit2: TEdit
    Left = 105
    Top = 225
    Width = 360
    Height = 23
    ReadOnly = True
    TabOrder = 5
  end
end