Dataset GetFieldNames setzt Stringlist Delimiter zurück

[Blackpit]

Hallo,
ist jemand dieser Fehler in Seattle bekannt?
Bei einem an Uwe's "Poor Man’s CSV Export" angelehnten Code wird mir der gesetzte Delimiter nach Aufruf von GetFieldNames default gesetzt.
wwClientDataSet1 ist ein TwwClientDataSet.

Delphi-Quellcode:

  writer := TStreamWriter.Create('DataSet.csv');
    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
          writer.WriteLine(lst.DelimitedText);
          wwClientDataSet1.First;

Kennt das jemand?

[hoika]

Hallo,
wird wohl ein Bug der Komponente sein.
Musst also deinen Delimiter retten und nach GetField neu setzen.

[Blackpit]

Zitat von hoika:

...
Musst also deinen Delimiter retten und nach GetField neu setzen.

Wenn's so einfach wäre, zurückgesetzt wird vor der Rückgabe, damit hat die Headerzeile auch schon den default Delimiter.
Und ich müsste die dann explizit ersetzen.

[hoika]

Hallo,
ich kenne die Komponente nicht.
Laut Google gibt es TwwClientDataSet nicht ...
Ist denn der Quellcode vorhanden?

Oder setz doch gleich den Default-Delimiter auf den Wert, den Du haben willst.
Oder ich verstehe das Problem nicht ...

[Frickler]

Zitat von hoika:

Oder setz doch gleich den Default-Delimiter auf den Wert, den Du haben willst.
Oder ich verstehe das Problem nicht ...

Ich verstehe das so, dass er den Default-Delimiter setzt, und seine Komponente (ist übrigens aus dem InfoPower-Paket) setzt direkt vor dem Export den Delimiter auf einen anderen Wert. Eventuell mit nem Class Helper oder einer Interposer Class (type TwwClientDataSet = class(wwclient.TwwClientDataSet) ... ) nachhelfen...

[Blackpit]

So ist es, Komponente aus dem Info-PowerPaket.
Hhm, wenn ich die verwenden will komm ich scheinbar um einen Classhelper nicht rum.

Wie läuft das mit einer " Interposer Class "? Kenn ich noch nicht, würde mich interessieren.

Zitat:

An interposer class is a class with the same name of the class it wants to change (using inheritance). By adding its unit after the unit of its base class in a uses statement, a unit will use the modified version of the class rather than the original. Interposer classes are not a terribly neat technique, rather a hack.

Sollte ich nicht lieber einen Classhelper schreiben, wobei ich es bei Delphi nicht unbedingt als Hack sehe

[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