路径分割符处理相关函数

delphi路径分割符处理相关函数
━━━━━━━━━━━━━━━━━━━━━━━━━━

IsPathDelimiter(const S: string; Index: Integer): Boolean;
功能 返回字符串S中指定位置Index上是否是一个路径分隔符
说明 IsPathDelimiter('C:\Windows', 3) = True
参考 const SysUtils.PathDelim;function SysUtils.ByteType
例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value);

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

IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean;
功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters
说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True
参考 function SysUtils.ByteType
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SpinEdit1.Value);

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

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

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

IncludeTrailingBackslash(const S: string): string; platform;
功能 返回包括最后斜线
说明 Result := IncludeTrailingPathDelimiter(S);
参考 function SysUtils.IncludeTrailingPathDelimiter
例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text);

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

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

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

ExcludeTrailingBackslash(const S: string): string; platform;
功能 返回排除最后斜线
说明 Result := ExcludeTrailingPathDelimiter(S)
参考 function SysUtils.ExcludeTrailingPathDelimiter
例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text);

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

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