Query in csv:welche schnelle Funktion zum suchen/ersetzen?

[juergen]

Hallo mkinzler,
ich speichere in keinen Stream, sondern füge jedes Feld direkt in einer Datei an.
Hier 2 weitere Schleifen für Suchen und Ersetzen einzufügen, wird das ganze wohl ziemlich bremsen.
Im Moment sieht mein Source für das Erstellen der csv-Datei wie folgt aus:

Delphi-Quellcode:

var
  Var_DS: Integer;
  Var_my_File_String: TStringList;
  Var_Cell: string;

begin
  Pfadelesen; // eine zuvor ausgeführte procedure
  Iniauslesen; //eine zuvor ausgeführte procedure
  Query1.DatabaseName := my_nice_DB_Name;
  Query1.SQL.add(sql);
  Query1.Active := true;
  Query1.FindFirst;
  Var_my_File_String := TStringList.Create;

  try
    while not (query1.eof) do
    begin
      Var_Cell := '';
      for Var_DS := 0 to Pred(Query1.FieldCount) do
      begin
        Var_Cell := Var_Cell + query1.Fields[VAR_DS].AsString;
        if (Var_DS < Pred(Query1.FieldCount)) then
        begin
          Var_Cell := Var_Cell + (Seperator_from_ini); // der in einer ini-Datei "hinterlegte" Seperator wird hier eingefügt
        end;
      end;
      Var_my_File_String.Add(Var_Cell);
      Query1.Next;
      Application.ProcessMessages;
    end;
    Var_my_File_String.SaveToFile(Ausgabename)
  finally
    Var_my_File_String.Free;
  end;
  Query1.Close;
end;

Wäre natürlich für jede Optimierung dankbar!