Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Datensätze in Textdatei schreiben

  Alt 4. Jun 2004, 10:56
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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat