CSV Dateien erzeugen und wieder einlesen

[needatip]

Hallo,
ich erzeuge aus einer Paradox Tabelle eine ganz einfache CSV Datei mittels:

Delphi-Quellcode:

Var Zeile:String;
    StringList1 : TStringList;
    i : integer;
begin
Zeile:='';
StringList1 := TStringList.Create;
Try
Table1.First;
// Feldnamen schreiben
For i:=0 to Table1.FieldCount-1 do
    Zeile:=Zeile+Table1.Fields[i].FieldName+';';
StringList1.Add(Zeile);
// Datensätze schreiben
While NOT Table1.Eof do Begin
   Zeile:='';
   For i:=0 to Table1.Fields.Count-1 do
        Zeile:=Zeile+Table1.Fields[i].AsString+';';
   StringList1.Add(Zeile);
   Table1.Next;
End;
StringList1.SaveToFile('c:\export\xliste.CSV');
Finally
  StringList1.Free;
End;
end;

Diese Datei möchte ich dann mittels der JvCsvDataSet Komponente in einem anderen Programm, das auf einen MS SQL Server zugreift, einlesen.

Beim Einlesen bekomme ich die Fehlermeldung:

Zitat:

Unexpected error parsing CSV Field Definitions

Öffne ich aber die CSV Datei in Excel und speichere diese dort ohne Änderung wieder ab, liest die Komponente diese Datei einwandfrei ein. Excel muss also irgendeine Information hinzufügen.

Was mache ich also beim Erzeugen der Datei falsch bzw. was fehlt der Datei für eine Information????