100，如何打印一个结构数组！(100分)

100，如何打印一个结构数组！

要怎么样打印吗,要不把数组中的数据写到stringgrid中,再来打印
stringgrid.

什么意思？ 看不明白～

你完全可以自己写代码生成一个TDataSet类的实例，把你的报表和这个TDATASET连接好
//当然用第三方的MEMOTABLE类的更方便，可以设计态就做好FIELDS的设计
自己用代码生成FIELDS的列表//和你的结构体定义一致
然后用循环语句把你数组里数据一个个APPEND进去

procedure dayin();
begin
if Application.MessageBox('打印确认?', '提示',MB_OKCANCEL + MB_DEFBUTTON1)=IDok then
begin
record_onneeddata:=0;
with fline_reportdo
begin
qrlabel20.Caption:='统计日期：'+datetostr(datetimepicker1.date)+'---->'+datetostr(datetimepicker2.date);
qrlabel22.Caption:='共计'+inttostr(length(shuzu))+'台设备';
you_value:=0;
wu_value:=0;
wujie_value:=0;
tingdian_value:=0;
for i:=0 to length(shuzu)-1do
begin
you_value:=you_value+shuzu.san_kwh;
wu_value:=wu_value+shuzu.san_kvarh;
wujie_value:=wujie_value+shuzu.san_jiesheng_kvarh;
tingdian_value:=tingdian_value+shuzu.tingdian_time;
end;
qrlabel23.Caption:= '累计有功电度:'+floattostr(you_value)+'KWH' ;
qrlabel24.Caption:='累计无功电度:'+floattostr(wu_value)+'KVarh' ;
qrlabel25.Caption:='累计无功节电数:'+floattostr(wujie_value)+'Kvarh' ;
qrlabel26.Caption:='累计停电时间:'+floattostr(tingdian_value)+'分';
end;
end;
with fline_reportdo
begin
quickrep1.Preview;
//打印预蓝
quickrep1.Prepare;
end;
end;
////////////////////////

老大，这么复杂作什么，用FASTREPORT直接解决掉了。

接受答案了.