Daten aus OracleDB mit Delphi in csv exportieren

[blema]

Hi, ich habe gerade das in meinem Programm eingebaut, aber es ist immer noch wie unter #13. Kein Fehler aber auch keine SpaltenName.

Code:

var
  List: TStringList;
  bm: TBookmark;
  SpaltenName : String;
  DatenFeld: String;
  I: Integer;
begin
  SpaltenName := '';
  List := TStringList.Create;
  try
    FDQuery1.First;
    for I := 0 to FDQuery1.FieldCount - 1 do
    begin
      if SpaltenName > '' then
        SpaltenName := SpaltenName + '';
        SpaltenName := SpaltenName + '' + FDQuery1.Fields[I].Fieldname;
    end;
    while not FDQuery1.Eof do
    begin
      DatenFeld := '';
      for I := 0 to FDQuery1.FieldCount - 1 do
      begin
        if DatenFeld > '' then
          DatenFeld := DatenFeld + '';
        DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].AsString + ' | ';
      end;
      List.Add(DatenFeld);
      FDQuery1.Next;
    end;

VG blema