delphi从路径中分离文件名

本文整理自网络，侵删。

 function GetFileName(FileName: string): string; {从路径中分离文件名}
var Contador: integer;
begin
Contador := 1;
while Copy(FileName, Length(FileName) - Contador, 1) <> '\' do
begin
Contador := Contador + 1;
end;
Result := (Copy(FileName, Length(FileName) - Contador + 1, Length(FileName)));
end; 

相关阅读 >>

Delphi xe 关闭android应用

Delphi退出程序询问

Delphi messagebox 使用

Delphi sizetostr 文件大小转换kb mb gb tb

Delphi firemonkey app 如何获得当前系统语言设置

Delphi在memo按键实现全选

Delphi 判断时间是否是下午 dateutils.ispm

Delphi comparestr 这个函数可以模糊匹配，且不区分大小写

Delphi 在内存中直接运行exe类型的资源文件

Delphi mediaplayer android 下播放 mp4 的问题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi从路径中分离文件名