应该是把DBGRID的ADODATASET的内容输入出来才对。var fs,str:string; i,j:integer;......... if exportsavedialog.execute then begin fs:=exportsavedialog.filename; begin assignfile(f,fs); rewrite(f); adodataset1.first; for i:=1 to adodataset1.RecordCount do begin for j:=1 to adodataste1.FieldCount do begin str:=addadoquery.Fields[j].Displaytext; str:=str+','; write(f,str); end; writeln(f,''); adodataste1.next; end; closefile(f); end; end;
fs,str:string;
i,j:integer;.........
if exportsavedialog.execute then
begin
fs:=exportsavedialog.filename;
begin
assignfile(f,fs);
rewrite(f);
adodataset1.first;
for i:=1 to adodataset1.RecordCount do
begin
for j:=1 to adodataste1.FieldCount do
begin
str:=addadoquery.Fields[j].Displaytext;
str:=str+',';
write(f,str);
end;
writeln(f,'');
adodataste1.next;
end; closefile(f);
end;
end;