Daten aus OracleDB mit Delphi in csv exportieren

[blema]

Hi,

die ausgabe mit dem Trennzeichen:

Code:

;   *funktioniert gut und wird in Excel ordnungsgemäß dargestellt

Code:

,   *csv-Datei in Excel nur in eine Spalte dargestellt

Code:

(#09) oder #09   *csv-Datei in Excel nur in eine Spalte dargestellt

hier nochmal mein Prog.:

Delphi-Quellcode:

var
  List: TStringList;
  SpaltenName : String;
  DatenFeld: String;
  I: Integer;
begin
  List := TStringList.Create;
  try
    FDQuery1.First;
    SpaltenName := '';
    for I := 0 to FDQuery1.FieldCount -1 do
      begin
          SpaltenName := SpaltenName + FDQuery1.Fields[I].Fieldname + #09;
      end;
      List.Add(SpaltenName);
    while not FDQuery1.Eof do
    begin
      DatenFeld := '';
      for I := 0 to FDQuery1.FieldCount - 1 do
      begin
        DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].AsString + #09;
      end;
      List.Add(DatenFeld);
      FDQuery1.Next;
    end;
  finally
      List.SaveToFile('C:\Projekte\oraTOcsv.csv');
      List.Free;
  end;

vg blema