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

相关阅读 >>

Delphi cb_addstring 与lb_addstring的区别?

Delphi中编写参数个数可变的函数

Delphi 实现代码重启android app

Delphi datetimepicker控件日期格式

Delphi 域名转ip并判断ip是否可以联通 复制代码

Delphi 编写ie代理服务器

Delphi webbrowser1 网页提交按钮执行点击事件

Delphi编解码js字符串

Delphi tadoquery的用法

Delphi 一个整数转其二进制表示的小函数

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



打赏

取消

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

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

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

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

评论

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