Question

DELPHI7 [错误] Unit1.pas(44): Undeclared identifier: 'GetFilePath' 怎么解决

{$R pro.RES}
procedure TForm1.FormCreate(Sender: TObject);
var
FlashRes : TResourceStream;
begin
FlashRes := TResourceStream.Create(Hinstance, 'a3', 'SwfFile');
try
FlashRes.SaveToFile(GetFilePath + 'a3.swf');
ShockwaveFlash1.LoadMovie(0, GetFilePath + 'a3.swf');
finally
FlashRes.Free;
end;
end;

Answer 1

Undeclared identifier: 'GetFilePath' 错误是提示代码中 GetFilePath 未被定义。

GetFilePath 不属于 delphi 的标准函数，需要自行编写代码来完成。

从问题描述中的代码来看：

1、 GetFilePath 函数的功用应该是取得文件的路径（推测是当前生成 exe 文件所在的路径）；

2、从其调用形式看，该函数没有参数。

综上，提供该函数代码供参考：

function GetFilePath:string;
begin
  Result := ExtractFilePath(Application.ExeName);
end;

将上述代码复制粘贴到源代码中即可。

Answer 2

'GetFilePath' 没有被申明，需要进行申明，把你的代码贴出来吧