Question

Delphi获取相对路径的文件名（不带路径）

extractfilepath(application.ExeName)+'jpgf','.jpg'获取的是带相对路径的文件名，这里只需要文件夹中的文件名称。怎么提取呀

Answer 1

ExtractFileName(文件完整路径 含文件名)

例：
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
showmessage(ExtractFileName(OpenDialog1.FileName));
end;
end;

以上例子为：当点击Button1时，弹出选择文件后，显示所选的文件名称（含扩展名）。

Answer 2

ExtractFileName(extractfilepath(application.ExeName)+'jpgf'+'.jpg')

Answer 3

ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp
ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\