object RegularExpressionsMainForm: TRegularExpressionsMainForm Left = 15 Top = 41 AutoScroll = False BorderWidth = 5 Caption = 'Regular Expression' ClientHeight = 240 ClientWidth = 740 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label4: TLabel Left = 355 Top = 5 Width = 242 Height = 19 Caption = 'Press a cell of a grid to fill the text' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 352 Height = 129 Caption = 'Test Expression' TabOrder = 0 object lbResult: TLabel Left = 150 Top = 102 Width = 183 Height = 13 Caption = 'Click the button to verify your input...' end object Label1: TLabel Left = 16 Top = 20 Width = 48 Height = 13 Caption = 'Template:' end object Label2: TLabel Left = 9 Top = 44 Width = 56 Height = 13 Caption = 'Expression:' end object Label3: TLabel Left = 39 Top = 68 Width = 26 Height = 13 Caption = 'Text:' end object cbExpression: TComboBox Left = 68 Top = 16 Width = 273 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnChange = cbExpressionChange end object eText: TEdit Left = 68 Top = 64 Width = 273 Height = 21 TabOrder = 2 end object bCheck: TButton Left = 68 Top = 96 Width = 75 Height = 25 Caption = '&Check' Default = True TabOrder = 3 OnClick = bCheckClick end object eExpression: TEdit Left = 68 Top = 40 Width = 273 Height = 21 TabOrder = 1 end end object DBGrid1: TDBGrid Left = 0 Top = 136 Width = 740 Height = 104 Align = alBottom Anchors = [akLeft, akTop, akRight, akBottom] DataSource = DADataSource ReadOnly = True TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnCellClick = DBGrid1CellClick Columns = < item Expanded = False FieldName = 'USPhoneNumber' Width = 100 Visible = True end item Expanded = False FieldName = 'Email' Width = 100 Visible = True end item Expanded = False FieldName = 'RealNumber' Width = 100 Visible = True end item Expanded = False FieldName = 'RomanNumber' Width = 100 Visible = True end item Expanded = False FieldName = 'URL' Width = 100 Visible = True end item Expanded = False FieldName = 'ZipCode' Width = 100 Visible = True end item Expanded = False FieldName = 'Path' Width = 100 Visible = True end> end object DACDSDataTable: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'USPhoneNumber' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Email' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RealNumber' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RomanNumber' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'URL' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ZipCode' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Path' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 411 Top = 57 end object DADataSource: TDADataSource DataSet = DACDSDataTable.Dataset DataTable = DACDSDataTable Left = 427 Top = 73 end end