本文整理自网络，侵删。
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('.', www.3464.com') = 16
参考 function SysUtils.StrScan;function SysUtils.ByteType
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);
相关阅读 >>
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
Delphi tnethttpclient https忽略证书验证
Delphi 把exe嵌入到自己的exe中。Delphi xe3
Delphi 解决“richedit line insertion error”错误
更多相关阅读请进入《Delphi》频道 >>
