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!