verileri sql query'den excel'e aktarma

[unnamed]

öncelikle ilginiz için teşekkürler.
excel e aktarmak için bir textfile oluşturuyorum.
uzantısını .csv koyunca excel de açılıyor .

Kod: Tümünü seç

datamodule2.query1.SQL.Text:='select * from cari where tarih='''+datetostr(date)+'''';
datamodule2.query1.open;
for x := 0 to datamodule2.query1.RecordCount - 1 do
begin
if x=0 then datamodule2.query1.First
else
if not(datamodule2.query1.Eof) then
     datamodule2.query1.Next;

for y := 0 to datamodule2.query1.FieldCount - 1 do
begin
dizi[y]:=datamodule2.query1.Fields[b].AsString;
end;
writeln(rpr,dizi[0]+';'+dizi[1]+';'+dizi[2]+';'+dizi[3]+';'+dizi[4]+';'+dizi[5]+';'+dizi[6]+';'+dizi[7]+';'+dizi[8]+';'+dizi[9]+';'+dizi[10]+';'+dizi[11]);
end;
closefile(rpr)

böyle bir kodla dosyaya aktarıyorum fakat şöyle bir sorun var:
mesela 15 kayıt var
ama dbgridde 10 tanesi görünüyor gerisi aşağıda kalmış görünmüyor.
o aşağıda kalan kayıtları almıyor.sadece gridde ne kadar görünüyorsa o
kadar kayıdı excele aktarıyor.benim bütün kayıtları almam lazım.

[ulu coder]

Emin değilim fakat kayıtları şu şekilde tararsanız doğru olabilir;

Kod: Tümünü seç

...
DataModule2.Query1.Open;
DataModule2.Query1.First;

While Not DataModule2.Query1.EOF do
begin

  ...
  ...
  ...

  DataModule2.Query1.Next;
end;

Kolay gelsin...