object Form1: TForm1
  Left = 1046
  Height = 531
  Top = 134
  Width = 836
  Caption = 'Visu Fichier CSV'
  ClientHeight = 531
  ClientWidth = 836
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '2.0.10.0'
  object Edit1: TEdit
    Left = 16
    Height = 23
    Top = 55
    Width = 648
    AutoSize = False
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 19
    Height = 15
    Top = 40
    Width = 144
    Caption = 'Nom du fichier à consulter:'
    ParentColor = False
  end
  object Button1: TButton
    Left = 624
    Height = 24
    Top = 88
    Width = 130
    Caption = 'Commissions cartes'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 16
    Height = 57
    Top = 88
    Width = 382
    ScrollBars = ssAutoBoth
    TabOrder = 2
  end
  object Button2: TButton
    Left = 664
    Height = 25
    Top = 54
    Width = 91
    Caption = 'Parcourir'
    OnClick = Button2Click
    TabOrder = 3
  end
  object Label2: TLabel
    Left = 19
    Height = 15
    Top = 0
    Width = 127
    Caption = 'Mois en cours de saisie :'
    ParentColor = False
  end
  object ComboBox1: TComboBox
    Left = 16
    Height = 23
    Top = 16
    Width = 191
    ItemHeight = 15
    Items.Strings = (
      'JANVIER'
      'FEVRIER'
      'MARS'
      'AVRIL'
      'MAI'
      'JUIN'
      'JUILLET'
      'SEPTEMBRE'
      'OCTOBRE'
      'NOVEMBRE'
      'DECEMBRE'
    )
    TabOrder = 4
  end
  object Panel1: TPanel
    Left = 0
    Height = 291
    Top = 240
    Width = 836
    Align = alBottom
    ClientHeight = 291
    ClientWidth = 836
    TabOrder = 5
    object StringGrid1: TStringGrid
      Left = 1
      Height = 289
      Top = 1
      Width = 834
      Align = alClient
      AutoFillColumns = True
      ColCount = 7
      Columns = <      
        item
          Title.Caption = 'Date'
          Width = 119
        end      
        item
          Font.CharSet = 4
          Title.Caption = 'Nature de l''opération'
          Width = 119
        end      
        item
          Title.Caption = 'Débit'
          Width = 119
        end      
        item
          Title.Caption = 'Crédit'
          Width = 119
        end      
        item
          Title.Caption = 'Devise'
          Width = 119
        end      
        item
          Title.Caption = 'Date de valeur'
          Width = 119
        end      
        item
          Title.Caption = 'Libellé interbancaire'
          Width = 119
        end>
      FixedCols = 0
      Flat = True
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goAlwaysShowEditor, goDblClickAutoSize, goSmoothScroll]
      TabOrder = 0
      ColWidths = (
        119
        119
        119
        119
        119
        119
        119
      )
    end
  end
  object Button3: TButton
    Left = 408
    Height = 21
    Top = 88
    Width = 89
    Caption = 'Button3'
    OnClick = Button3Click
    TabOrder = 6
  end
  object ComboBox2: TComboBox
    Left = 561
    Height = 23
    Top = 125
    Width = 272
    ItemHeight = 15
    Items.Strings = (
      'PRELEVEMENT EUROPEEN'
      'TENUE DE COMPTE'
      'VIR EUROPEEN EMIS'
      'DEBIT MENSUEL CARTE BLEUE VISA'
      'CHEQUE'
      'RELEVE LCR DOMICIL'
      'VERSEMENT EXPRESS'
      'VIR RECU'
    )
    TabOrder = 7
  end
  object DataSource1: TDataSource
    DataSet = CSVDataset1
    Left = 224
    Top = 8
  end
  object CSVDataset1: TCSVDataset
    PacketRecords = 1
    UniDirectional = True
    FieldDefs = <    
      item
        Name = 'Date'
        DataType = ftDate
      end    
      item
        Name = 'Nature de l''opération'
        DataType = ftString
      end    
      item
        Name = 'Débit'
        DataType = ftString
      end    
      item
        Name = 'Crédit'
        DataType = ftString
      end    
      item
        Name = 'Devise'
        DataType = ftString
      end    
      item
        Name = 'Date de valeur'
        DataType = ftDate
      end    
      item
        Name = 'Libellé interbancaire'
        DataType = ftString
      end>
    AutoCalcFields = False
    CSVOptions.FirstLineAsFieldNames = False
    CSVOptions.DefaultFieldLength = 255
    CSVOptions.Delimiter = ';'
    CSVOptions.QuoteChar = '"'
    CSVOptions.LineEnding = 'CRLF'
    CSVOptions.IgnoreOuterWhitespace = True
    CSVOptions.QuoteOuterWhitespace = False
    Left = 296
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 728
    Top = 8
  end
end