Dataset GetFieldNames setzt Stringlist Delimiter zurück

[Blackpit]

Hallo,
die pragmatischte lösung war, Delimter und QuotedChar vor dem Schreiben nachzusetzten.

Delphi-Quellcode:

...
  writer := TStreamWriter.Create('DataSet.csv', False, TEncoding.UTF8);
    try
      lst := TStringList.Create();
      try
        lst.QuoteChar := '"';
        lst.Delimiter := ';';
        lst.StrictDelimiter := true;
        wasActive := wwClientDataSet1.Active;
        try
          wwClientDataSet1.Active := true;
          wwClientDataSet1.GetFieldNames(lst); // <-- hier wird lst.Delimiter default
          lst.QuoteChar := '"';               //neu setzen
          lst.Delimiter := ';';
          writer.WriteLine(lst.DelimitedText);
          wwClientDataSet1.First;
...

Gruß

BP