用wwwwb, 的也可以,如果设置为False时,则用自已来加载文件
如:
with fmReports.frFooddo
begin
LoadFromFile(ExtractFilePath(application.ExeName )+'tmpdb/Food.frf');
FindObject('mTitle').Memo.Text:=fmOtherSet.EditTitle.Text+'酒水寄存查询';
FindObject('mDT1').Memo.Text :=datetostr(DTP1.Date);
FindObject('mDT2').Memo.Text :=datetostr(DTP2.Date);
{ try //直接打印
PrepareReport ;
PrintPreparedReport('',1,true,frAll);
except
end;
}
ShowReport ;
end;