Question

delphi下数据表中数据输出到txt中

表结构：三个字段：数量（qty)、年(date1)、月(date2)
希望输出为：
1月份： 00年数量 01年数量…… 07年数量
2月份： 00年数量 01年数量…… 07年数量
……
12月份： 00年数量 01年数量…… 07年数量

在delphi下怎么做?谢谢.
一楼：我想严格按照格式输出

Answer 1

var
i, j: integer;
a: string;
f: textfile;
begin
if SaveDialog.Execute then
begin
DataSource1.DataSet.DisableControls;
try
assignfile(f, SaveDialog.FileName);
rewrite(f);
a := '';
for i := 0 to BrowGrid.Columns.Count - 1 do
if BrowGrid.Columns[i].Visible then a := a + BrowGrid.Columns[i].Field.DisplayName + '|';
Writeln(f, a);
BrowGrid.DataSource.DataSet.First;
while not BrowGrid.DataSource.DataSet.Eof do
begin
a := '';
for j := 0 to BrowGrid.Columns.Count - 1 do
begin
if BrowGrid.Columns[j].Visible then a := a + BrowGrid.Columns[j].Field.AsString + '|';
end;
Writeln(f, a);
BrowGrid.DataSource.DataSet.Next;
end;
CloseFile(f);
except
end;
DataSource1.DataSet.EnableControls;
end;
end;

每个字段以“|”分开。

那你就要先把SQL语句写好啊，先用SQL行转列，再输出。