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);