Datensätze in Textdatei schreiben

[Sharky]

Zitat von rbest:

:.... Am Besten delimited:
"asdf","ff",122,"gfgf"....

Hai rbest,

wenn deine Datentenbank es nicht von Hause aus unterstützt sollte das mit zwei Schleifen schnell zu lösen sein.

Hier mal ein ungetesteter Ansatz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
  sl  : TStringList;
  tString : String;
begin
  sl := TStringList.Create;
  try
    with Query1 do
    begin
      First;
      while not (Eof) do  //Alle Datensätze durchlaufen
      begin
        tString := '';
        for ndx := 0 to Fields.Count -1 do  //Alle Felder eines Datensatzes durchgehen 
        begin
          tString := tString + '"' + Fields.Fields[ndx].AsString + '",';  //CSV-String zusammen bauen
        end;
        sl.Add(tString);  // Ab in die Stringliste
        Next;
      end;
    end;
    sl.SaveToFile('deinfile.csv');  // Und auf die Pladde ;-)
  finally
    FreeAndNil (sl);
  end;
end;