CSVViewer - Zum Betrachten von CSV-Dateien

[Luckie]

Dann ist das ein Bug von Delphi, dass sich TStringList nicht an das RFC hält. Lösung wäre, die Datei selber zu parsen, aber dazu war ich zu faul. Allerdings, man könnte noch mal probieren, was Explode daraus macht.

[Sir Rufo]

Zitat von Luckie:

Dann ist das ein Bug von Delphi, dass sich TStringList nicht an das RFC hält. Lösung wäre, die Datei selber zu parsen, aber dazu war ich zu faul. Allerdings, man könnte noch mal probieren, was Explode daraus macht.

Öffne die Datei über eine ADOConnection und der Drops ist gelutscht
Allerdings musst du dafür die CSV-Datei entweder in ein temp. Verzeichnis kopieren, oder
die Schema.ini Datei in das CSV-Verzeichnis erzeugen

Wobei die erste Variante zu bevorzugen ist

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

[sakura]

Danke Luckie, für die Vorarbeit. Ganz praktisch, aber zuuu langsam. Ich habe die Methode FillListview mal dahingehend angepasst, dass die Daten wirklich schnell verarbeitet werden. Jetzt benötigt nur noch die Berechnung der Spaltenbreite eine gewisse Zeit

......