CSVViewer - Zum Betrachten von CSV-Dateien

[Sir Rufo]

Das ist quasi der gesamte "Aufwand"

Delphi-Quellcode:

con1 : TADOConnection;
tbl1 : TADOTable;
ds1 : TDataSource;
dbg1 : TDBGrid;

tbl1.Connection := con1;
ds1.DataSet := tbl1;
dbg1.DataSource := ds1;

und hier die Arbeit

Delphi-Quellcode:

procedure TForm1.FileOpen1Accept( Sender : TObject );
var
  DataFile :   _FileName;  // <- ist ein Spezial-Record für Dateinamen :o)
  SchemaFile : _FileName;
  idx :        Integer;
begin
  if con1.Connected
  then
    con1.Close;

  DataFile            := FileOpen1.Dialog.FileName;
  SchemaFile          := DataFile;
  SchemaFile.FileName := 'schema.ini';

  with TIniFile.Create( SchemaFile ) do
    try
      WriteString( DataFile.FileName, 'Format', 'Delimited(;)' );
    finally
      Free;
    end;

  con1.Provider         := 'MSDASQL';
  con1.ConnectionString := 'Driver={Microsoft Text-Treiber (*.txt; *.csv)};Extensions=asc,csv,tab,txt;';
  con1.DefaultDatabase  := DataFile.DirName.FullName;

  tbl1.TableDirect := True;
  tbl1.TableName   := DataFile.FileName;

  tbl1.Open;

end;