CSV Export eines ADOQueries beschleunigen

[slemke76]

Hallo zusammen,

ich speichere im Moment das Ergebniss eines Queries wie folgt in einer CSV Datei:

Delphi-Quellcode:

  sl := TStringList.Create;
  try
    with AdoQuery do
    begin
      First;
      // - Alle Datensätze durchlaufen -
      while not (Eof) do begin
        inc(count);
        tString := '';
        // - Alle Felder eines Datensatzes durchgehen -
        for ndx := 0 to Fields.Count -1 do begin
          // Gleichzeitig trim !
          tString := tString + '"' + trim(Fields.Fields[ndx].AsString) + '";';  
        end;
        sl.Add(tString);  // Ab in die Stringliste
        Next;
      end;
    end;
    sl.SaveToFile(File2Use);  // Und auf die Pladde ;-)
  finally
    FreeAndNil(sl);
  end;
end;

Problem ist nun, dass das ganze nicht besonders schnell ist - es ist ganz in Ordnung, aber z.B. adoquery.savetofile ist viel viel viel schneller - das Dateiformat passt halt leider nicht.

Hat jemand eine Optimierungsidee ?

lg
Sebastian