Query-Ergebnismenge in eine csv-Datei schreiben

mkinzler · Verfasst: Fr 17.03.06 09:42

Hallo Gabi,

füge an Zeile 15 folgendes ein:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

     s:= qry_TEinldg.Fields.FieldByNumber(1).FieldName;
     for i := 2 to qry_TEinldg.FieldCount do 
     begin
       s:= s + ';' + qry_TEinldg.Fields.FieldByNumber(i).FieldName;
     end;
     Writeln(F,s);

_________________
Markus Kinzler.

gamoes · Beiträge: 86

Hallo Markus,
tausend Dank, jetzt sieht meine csv-Datei genau so aus wie ich sie brauche.

Viele Grüße
Gabi

mkinzler · Verfasst: Fr 17.03.06 12:57

Gern geschehen!

_________________
Markus Kinzler.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme