Chip 1999 January/Chip_1999-01_cd.bin/zkuste/delphi/D1/PARSER.ZIP/MAIN.DFM/MAIN.txt

Text File | 1996-04-11 | 11.0 KB | 441 lines

object MainForm: TMainForm
  Left = 56
  Top = 168
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'BisonWare File Parser Control V6.0 - Demonstration Program'
  ClientHeight = 359
  ClientWidth = 491
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  OnActivate = FormActivate
  OnCreate = FormCreate
  TextHeight = 13
  object TabbedNotebook1: TTabbedNotebook
    Left = 8
    Top = 4
    Width = 477
    Height = 349
    PageIndex = 3
    TabsPerRow = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Pascal Parse'
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 381
        Height = 53
        AutoSize = False
        Caption =
          'This page demonstrates how the BisonWare Parser can be used to p' +
          'arse a Pascal source file into a series of records.  The semicol' +
          'on (;) is set as the record delimiter.  Leading, Trailing && Mul' +
          'tiple spaces are ignored.  Line feeds are ignored. '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LB1: TListBox
        Left = 8
        Top = 84
        Width = 453
        Height = 229
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 0
      end
      object Button1: TButton
        Left = 396
        Top = 8
        Width = 65
        Height = 33
        Hint = 'Press to begin the Pascal Parse'
        Caption = '&Parse'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = Button1Click
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 64
        Width = 205
        Height = 17
        Caption = 'Ignore Pascal Comments'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        State = cbChecked
        TabOrder = 2
        OnClick = CheckBox2Click
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Comma Seperated'
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 381
        Height = 45
        AutoSize = False
        Caption =
          'This page demonstrates how the BisonWare Parser can be used to p' +
          'arse a comma seperated file.  The output is displayed within a s' +
          'tring list but can just as easily be stored within a database fi' +
          'le.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Button2: TButton
        Left = 396
        Top = 8
        Width = 65
        Height = 33
        Hint = 'Press to begin the CSV Parse'
        Caption = '&Parse'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Button2Click
      end
      object SG1: TStringGrid
        Left = 12
        Top = 76
        Width = 445
        Height = 125
        FixedCols = 0
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssNone
        TabOrder = 1
        ColWidths = (
          129
          70
          31
          113
          102)
      end
      object CheckBox1: TCheckBox
        Left = 12
        Top = 208
        Width = 133
        Height = 17
        Caption = 'Trim text qualifiers'
        State = cbChecked
        TabOrder = 2
        OnClick = CheckBox1Click
      end
      object GroupBox1: TGroupBox
        Left = 12
        Top = 232
        Width = 129
        Height = 81
        Caption = 'Case Conversion'
        TabOrder = 3
        object radUpper: TRadioButton
          Left = 8
          Top = 56
          Width = 113
          Height = 17
          Caption = 'Upper Case'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object radLower: TRadioButton
          Left = 8
          Top = 36
          Width = 113
          Height = 17
          Caption = 'Lower Case'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object radNone: TRadioButton
          Left = 8
          Top = 16
          Width = 113
          Height = 17
          Caption = 'None'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          TabStop = True
        end
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Memory Parse'
      object Label9: TLabel
        Left = 8
        Top = 8
        Width = 381
        Height = 45
        AutoSize = False
        Caption =
          'This page demonstrates how a BisonWare file parser can be used t' +
          'o parse a text string stored in memory.  Type a string into the ' +
          'memo area on the left and press the parse button to break the se' +
          'ntence down into individual words.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Button3: TButton
        Left = 396
        Top = 8
        Width = 65
        Height = 33
        Hint = 'Press to begin the Memory Parse'
        Caption = '&Parse'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Button3Click
      end
      object memInput: TMemo
        Left = 12
        Top = 56
        Width = 213
        Height = 253
        Lines.Strings = (
          'this is    a  line "of text" which'
          'is used to test the'
          ''
          ''
          'BisonWare Parsers '
          ''
          #39'memory parsing capabilities'#39)
        TabOrder = 1
      end
      object LB2: TListBox
        Left = 240
        Top = 56
        Width = 213
        Height = 253
        ItemHeight = 13
        TabOrder = 2
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Registration'
      object Label3: TLabel
        Left = 12
        Top = 12
        Width = 437
        Height = 34
        Caption = 'BisonWare Parser Control V6.0'
        Font.Color = clBlue
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 80
        Top = 52
        Width = 310
        Height = 16
        Caption = 'Register this Delphi custom control via compuserve :'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 108
        Top = 76
        Width = 261
        Height = 16
        Caption = 'Parser control : Go SWREG #8054 for $10.00'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 52
        Top = 144
        Width = 364
        Height = 16
        Caption = 'Please pass any comments to BisonWare on Compuserve ID'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 148
        Top = 160
        Width = 168
        Height = 34
        Caption = '100416,3553'
        Font.Color = clBlack
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 92
        Top = 228
        Width = 288
        Height = 20
        Caption = 'Thank you for using BisonWare Software'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 52
        Top = 100
        Width = 373
        Height = 16
        Caption = 'Parser control + Full source code : Go SWREG #9889 for $49.95'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Panel1: TPanel
        Left = 68
        Top = 268
        Width = 333
        Height = 2
        BevelOuter = bvLowered
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 68
        Top = 200
        Width = 333
        Height = 2
        BevelOuter = bvLowered
        TabOrder = 1
      end
      object Panel3: TPanel
        Left = 68
        Top = 136
        Width = 333
        Height = 2
        BevelOuter = bvLowered
        TabOrder = 2
      end
    end
  end
  object FP1: TFileParser
    FileName = 'main.pas'
    CommentDelimiters = '{ }'
    CaseConvert = ctNone
    OnRecordParse = FP1RecordParse
    TextQualifiers = #39
    RecordDelimiters = ';'
    TrimTextQualifiers = False
    TrimLeadingSpaces = True
    TrimTrailingSpaces = True
    TrimMultipleSpaces = True
    IgnoreLineFeeds = True
    SpaceOutTabs = True
    Left = 200
    Top = 360
  end
  object FP2: TFileParser
    FileName = 'employee.txt'
    CaseConvert = ctNone
    OnRecordParse = FP2RecordParse
    TextQualifiers = '"'#39
    FieldDelimiters = ','
    TrimTextQualifiers = True
    TrimLeadingSpaces = False
    TrimTrailingSpaces = False
    TrimMultipleSpaces = False
    IgnoreLineFeeds = False
    SpaceOutTabs = False
    Left = 232
    Top = 360
  end
  object FP3: TFileParser
    CommentDelimiters = '{ }; /* */; (* *)'
    CaseConvert = ctNone
    OnParseError = FP3ParseError
    OnRecordParse = FP3RecordParse
    TextQualifiers = '"'#39
    FieldDelimiters = ' '
    TrimTextQualifiers = True
    TrimLeadingSpaces = False
    TrimTrailingSpaces = False
    TrimMultipleSpaces = False
    IgnoreMultiDelimiters = True
    IgnoreLeadingDelimiters = True
    IgnoreTrailingDelimiters = True
    IgnoreLineFeeds = True
    SpaceOutTabs = True
    Left = 265
    Top = 360
  end
end