(1)WPath := ExtractFilePath(ParamStr(0));(wpath是private定义的)
ExtractFilePath(ParamStr(0))返回的是哪个路径?实在是没看明白!(2)下面的语句为什么不能现实窗体,点击按钮时有个窗体一闪而过,哪位大侠帮助解决一下,不胜感激! 
procedure TMainForm.Button3Click(Sender: TObject);
begin
form1.frReport3.LoadFromFile(WPath+'.frf');
form1.frReport3.PrepareReport;
form1.frreport3.ShowPreparedReport;
end;
还有LoadFromFile(WPath+'.frf')括号中加其他绝对路径时出现错误,提示没有定义x(x指绝对路径的盘符),怎么回事??

解决方案 »

  1.   

    1:返回当前运行程序(.exe文件)的绝对路径!
      

  2.   

    form1.frReport3.LoadFromFile(WPath+'.frf');
    中的'.frf' 这个文件名不全 添全就好了 呵呵 我试了
      

  3.   

    to  TrueHunter(老哥) 
    那要是不用WPath+'.frf'这种形式,而是用不在这个路径下的其他.frf文件怎么用呢?比如e:\1.frf,提示我没有定义e,怎么办呢?不能这么用吗?
      

  4.   

    to  TrueHunter(老哥) 
    那要是不用WPath+'.frf'这种形式,而是用不在这个路径下的其他.frf文件怎么用呢?比如e:\1.frf,提示我没有定义e,怎么办呢?不能这么用吗?