unit1.dfm

短信开发之—PDU转换实例,对手机串口卡发很有用

object Form1: TForm1
  Left = 329
  Top = 133
  Width = 369
  Height = 275
  Caption = 'PDU'#36716#25442
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 4
    Top = 4
    Width = 353
    Height = 153
    Lines.Strings = (
      '24240A0D4D57454E303A47533032202C3830363039313831333037313'
      '333312C31383232313737313930342C55282C384F43494E4E29454480'
      'FD562D671A9054515096095EF8536C52DE5D7F536C5106A0DF800C062'
      '2810A614017815F97028C7F1D011D2DE251000DDAFB599275A0A01001'
      'C01C805148E23148E230048586051080000201C03EA01080846050752'
      '9A0503BB00019A0503BB0146050752400A246A00101040200001A246A'
      '000020A246A0010100210001A246A000000000000000000')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 4
    Top = 220
    Width = 75
    Height = 25
    Caption = #20013#25991'->PDU'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 4
    Top = 172
    Width = 354
    Height = 20
    TabOrder = 2
    Text = #20013#22269#32852#36890#26377#38480#20844#21496#24191#24030#20998#20844#21496
  end
  object Button2: TButton
    Left = 88
    Top = 220
    Width = 75
    Height = 25
    Caption = 'PDU->'#20013#25991
    TabOrder = 3
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 4
    Top = 196
    Width = 353
    Height = 20
    TabOrder = 4
  end
  object Button3: TButton
    Left = 168
    Top = 220
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 5
    OnClick = Button3Click
  end
end