Und wieder einmal ein kleines Problem.
Ich will die sich in einer DBGrid (gefiltert) befindlichen Zeilen in eine *.txt abspeichern, so das ich im Anschluß daran, aus diesen gefilterten Zeilen einen Serienbrief erstellen kann.
Ich habe es es bis jetzt nur hinbekommen, das er mir einen Datensatz 14x (=Anzahl der Spalten) hintereinander abspeichert. Ich habe aber schon gesehen das es auch so aussehen kann:
Delphi-Quellcode:
Nr name Vorname
1 Test1 Test2
... ... ...
Ich habe auch schon gegoogelt bis zum schwarz werden aber gefunden habe ich nichts was mir weiterhilft.
Versucht habe ich es mit dem folgendem Quelltext
Code:
ar
x,y :integer;
list : TStringlist;
begin
list := TStringlist.Create;
for x:=0 to DBGrid1.Columns.Count-1 do
begin
for y:= 0 to DBGrid1.SelectedRows.Count-1 do
begin
list.Add(Form1.Query1.Fields.Fields[x]);
end;
end;
list.SaveToFile('Strings.txt');
list.Free;
end;