Delphi 路径相关函数

IncludeTrailingPathDelimiter(const S: string): string;
功能 返回包括最后路径分隔符
说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回
参考 function SysUtils.IsPathDelimiter;function System.Length
例子 path := IncludeTrailingPathDelimiter(dir);

━━━━━━━━━━━━━━━━━━━━━

ExcludeTrailingPathDelimiter(const S: string): string;
功能 返回排除最后路径分隔符
说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回
参考 function SysUtils.IsPathDelimiter;function System.Length;function System.SetLength
例子 dir := ExcludeTrailingPathDelimiter(path);

━━━━━━━━━━━━━━━━━━━━━

LastDelimiter(const Delimiters, S: string): Integer;
功能 返回最后一个分隔符的位置
说明 LastDelimiter('.', 'kingron.myetang.com') = 16
参考 function SysUtils.StrScan;function SysUtils.ByteType
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

ExtractFilePath(const FileName: string)：string;
功能 返回文件名字中的路径部分
说明 实质上是调用LastDelimiter作字符串处理
例子 path := ExtractFilePath(FileFullName);

━━━━━━━━━━━━━━━━━━━━━

ExtractFileDir(const FileName: string)：string;
功能 返回文件的文件夹
说明 实质上是调用LastDelimiter作字符串处理
例子 dir := ExtractFileDir(FileFullName);