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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.062135934829712 seconds