object Form1: TForm1 Left = 266 Height = 423 Top = 139 Width = 745 Caption = 'Form1' ClientHeight = 423 ClientWidth = 745 OnCreate = FormCreate LCLVersion = '1.9.0.0' object Button1: TButton Left = 80 Height = 25 Top = 8 Width = 105 AutoSize = True Caption = 'Load from CSV' OnClick = Button1Click TabOrder = 0 end object DBNavigator1: TDBNavigator Left = 224 Height = 25 Top = 66 Width = 241 BevelOuter = bvNone ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 100 ClientHeight = 25 ClientWidth = 241 DataSource = Datasource1 Options = [] TabOrder = 1 end object DBGrid1: TDBGrid Left = 15 Height = 304 Top = 104 Width = 720 Anchors = [akTop, akLeft, akRight, akBottom] AutoFillColumns = True Color = clWindow Columns = < item Title.Caption = 'ORDR' Width = 98 FieldName = 'ORDR' end item Title.Caption = 'PRDCT' Width = 98 FieldName = 'PRDCT' end item Title.Caption = 'CMPNT' Width = 98 FieldName = 'CMPNT' end item Title.Caption = 'CMPNT_DSCR' Width = 98 FieldName = 'CMPNT_DSCR' end item Title.Caption = 'CMPNT_RQRD' Width = 98 FieldName = 'CMPNT_RQRD' DisplayFormat = '#,##0.00' end item Title.Caption = 'CMPNT_RQRD_UNT' Width = 98 FieldName = 'CMPNT_RQRD_UNT' end item Title.Caption = 'CMPNT_TOT_AVLB' Width = 99 FieldName = 'CMPNT_TOT_AVLB' DisplayFormat = '#,##0.00' end> DataSource = Datasource1 TabOrder = 2 end object Button2: TButton Left = 560 Height = 25 Top = 8 Width = 75 Caption = 'Save To CSV' OnClick = Button2Click TabOrder = 3 end object Label1: TLabel Left = 560 Height = 15 Top = 45 Width = 100 Caption = 'New field delimiter' ParentColor = False end object ComboBox1: TComboBox Left = 560 Height = 23 Top = 66 Width = 175 ItemHeight = 15 ItemIndex = 1 Items.Strings = ( 'semicolon (;)' 'tab (#9)' 'comma (,)' 'bar (|)' 'colon (:)' 'dash (-)' 'slash (/)' 'back-slash (\)' ) TabOrder = 4 Text = 'tab (#9)' end object ZMConnection1: TZMConnection Connected = False FloatPrecision = 0 left = 256 top = 8 end object ZMQueryDataSet1: TZMQueryDataSet FieldDefs = < item Name = 'RQRMTS_ID' DataType = ftString Precision = -1 Size = 217 end item Name = 'ORDR' DataType = ftString Precision = -1 Size = 217 end item Name = 'PRDCT' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_DSCR' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_RQRD' DataType = ftFloat Precision = 2 Size = -1 end item Name = 'CMPNT_TOT_RQRD' DataType = ftFloat Precision = 2 Size = -1 end item Name = 'CMPNT_RQRD_UNT' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_AVLB' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_TOT_AVLB' DataType = ftFloat Precision = 2 Size = 10 end item Name = 'CMPNT_TOT_AVLB_CURR' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_TOT_AVLB_CURR_QINS' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_TOT_AVLB_CURR_QINS_ORDRD' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_SHRTG' DataType = ftString Precision = -1 Size = 217 end item Name = 'CMPNT_TOT_SHRTG' DataType = ftString Precision = -1 Size = 217 end item Name = 'STRG_LOC' DataType = ftString Precision = -1 Size = 217 end> ZMConnection = ZMConnection1 QueryExecuted = False TableName = 'rqrmts' TableLoaded = False TableSaved = False DynamicFieldsCreated = False PeristentFieldsCreated = False MemoryDataSetOpened = False PersistentSave = False Parameters = <> MasterDetailFiltration = False FilterOptions = [] left = 376 top = 8 end object Datasource1: TDataSource DataSet = ZMQueryDataSet1 left = 504 top = 8 end end