home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap15 / pchar1 / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  1.4 KB  |  78 lines

  1. object Form1: TForm1
  2.   Left = 152
  3.   Top = 157
  4.   ActiveControl = BSizeOf
  5.   AutoScroll = False
  6.   Caption = 'PChar One'
  7.   ClientHeight = 184
  8.   ClientWidth = 396
  9.   Font.Color = clWindowText
  10.   Font.Height = -10
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object BSizeOf: TButton
  16.     Left = 24
  17.     Top = 80
  18.     Width = 89
  19.     Height = 33
  20.     Caption = 'SizeOf'
  21.     TabOrder = 0
  22.     OnClick = BSizeOfClick
  23.   end
  24.   object BStrLen: TButton
  25.     Left = 24
  26.     Top = 128
  27.     Width = 89
  28.     Height = 33
  29.     Caption = 'StrLen'
  30.     TabOrder = 1
  31.     OnClick = BStrLenClick
  32.   end
  33.   object Edit1: TEdit
  34.     Left = 24
  35.     Top = 24
  36.     Width = 353
  37.     Height = 29
  38.     TabOrder = 2
  39.     Text = 'Edit1'
  40.   end
  41.   object BStrCatErr: TButton
  42.     Left = 144
  43.     Top = 80
  44.     Width = 121
  45.     Height = 33
  46.     Caption = 'StrCat Err'
  47.     TabOrder = 3
  48.     OnClick = BStrCatErrClick
  49.   end
  50.   object StrCatOk: TButton
  51.     Left = 144
  52.     Top = 128
  53.     Width = 121
  54.     Height = 33
  55.     Caption = 'StrCat Ok'
  56.     TabOrder = 4
  57.     OnClick = StrCatOkClick
  58.   end
  59.   object BStrNew: TButton
  60.     Left = 288
  61.     Top = 80
  62.     Width = 89
  63.     Height = 33
  64.     Caption = 'StrNew'
  65.     TabOrder = 5
  66.     OnClick = BStrNewClick
  67.   end
  68.   object BStrPCopy: TButton
  69.     Left = 288
  70.     Top = 128
  71.     Width = 89
  72.     Height = 33
  73.     Caption = 'StrPCopy'
  74.     TabOrder = 6
  75.     OnClick = BStrPCopyClick
  76.   end
  77. end
  78.