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"