Delphi 处理链接和文件路径结尾\和/


本文整理自网络,侵删。

 
function TrimSlashes(s: string; all: Boolean = False): string;
begin
  while (s <> '') and CharInSet(s[1], ['/', '\']) do
    Delete(s, 1, 1);
  if all then
    while (s <> '') and CharInSet(s[length(s)], ['/', '\']) do
      Delete(s, length(s), 1)
  else
    while (s <> '') and (s[length(s)] = '\') do
      Delete(s, length(s), 1);
  Result := s;
end;

如:c:\123\  结果 c:\123
如:http://www.baidu.com/  结果 http://www.baidu.com

相关阅读 >>

如何判断硬盘是fat32还是ntfs

Delphi 根据字符串找到函数并执行

Delphi getprocesshandleasname 获取进程句柄

Delphi 获取网卡信息

Delphi stopprocess 进程关闭函数

Delphi随机字符(密码生成)函数

使用滑块实现图片的放大和缩小

Delphi动态创建一个鼠标指针图案

Delphi 锁定系统解锁系统

Delphi 如何在webservice中获取客户端的ip地址

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...