5,392
社区成员
发帖
与我相关
我的任务
分享
procedure TForm5.Button1Click(Sender: TObject);
var
sPath:string;
begin
sPath:=ExtractFilePath(Application.ExeName);
self.frReport1.Clear;
self.frReport1.LoadFromFile(sPath+'reports.frf');
self.frReport1.ShowReport;
end;