CSVViewer - Zum Betrachten von CSV-Dateien

[Luckie]

Zitat von Sir Rufo:

Öffne die Datei über eine ADOConnection und der Drops ist gelutscht

Hm, so einen Aufwand wollte ich eigentlich nicht treiben. Aber angucken kann man es ja mal. hast du irgendwo noch weitere Infos dazu? Mit ADO Verbindungen habe ich noch nie gearbeitet.

[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;

[Luckie]

Und als visuelle Komponente habe ich dann einen TTable?

[mkinzler]

Eine TTable ist nicht visuell, eher eine DBGrid

[Luckie]

OK, dann habe ich noch nicht verstanden wie ich das angezeigt bekomme. Wird dann ein DBGrid mit dem TTable verknüpft?

[mkinzler]

Ja über eine TDataSource

DBGrid->DataSource->DataSet

[Sir Rufo]

Steht doch bei mir im ersten CodeTeil
Ist aber getrennt, weil man das a) auf die Form klatscht und b) die Zuordnung über den OI macht