CSV-Reader. Schnelles lesen von CSV-Dateien

[deadcantdance]

Kleiner Hinweis. Das o.g. Bespiel funktioniert so nicht ganz.

Beim ersten Durchlauf ist ColumnCount = 0, erst nach dem Aufruf von csvReader.Next wird ColumnCount gesetzt.

Sollte doch dann eigentlich so sein:

Delphi-Quellcode:

Try 
  if not csvReader.Eof then
    csvReader.Next;
  While not csvReader.Eof Do Begin                                            
    For i:=0 to csvReader.ColumnCount - 1 Do                                  
      Memo.Lines.Add (csvReader.Columns[i]);                                  
    csvReader.Next;                                                          
  End;      
Finally 
  csvReader.Free; 
  sData.Free; 
End;

Ansonsten,

Viele Grüße,
deadcantdance