delphi从全路径中分离路径,有'\'

本文整理自网络，侵删。

 function GetFilepath(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, 1, Length(FileName) - Contador));
end;
 

相关阅读 >>

Delphi 显示简单图形

Delphixe win7、mssql2000、udl

Delphi memo 的当前行、当前列与当前字符

Delphi chart组件，chart控件用法

一些最基本的函数 单元

Delphi使用hough变换查找直线

[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

扩展 Delphi 线程 使之传递参数.（给匿名线程增加参数）

Delphi doc转txt

Delphi idhttp上传图给asp完美解决

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

转载请注明出处：木庄网络博客 » delphi从全路径中分离路径,有'\'