delphi从路径中分离文件名

2022-07-13 10:00:00 网络 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 无法编译apk提示sdk路径问题时？sdk路径配置方法

Delphi idhttp登录网站教程代码

Delphi 学习 sql 语句 - select(8): 分组条件

Delphi 之标签组件(tlabel组件)

Delphi tpath.combine(); {结合路径}

用Delphi编写聊天程序

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