RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

delphi有用的函数ExtractFileName、ExtractFilePath

作者:admin 来源:未知 日期:2010/5/23 23:55:16 人气: 标签:

function ExtractFileName(const FileName: string): string; // 解出文件名
function ExtractFilePath(const FileName: string): string; // 解出文件路径

function ExtractFileName(const FileName: string): string;
var
P: Integer;
begin
P := Length(FileName);
while (P > 0) and (FileName[P] <> '\') and (FileName[P] <> ':') do Dec(P);
Result := Copy(FileName, P + 1, Length(FileName) - P);
end;

function ExtractFilePath(const FileName: string): string;
var
P: Integer;
begin
P := Length(FileName);
while (P > 0) and (FileName[P] <> '\') and (FileName[P] <> ':') do Dec(P);
Result := Copy(FileName, 1, P);
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: