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写文本文件

Delphi中bitmap位图与base64字符串相互转换

Delphi单元文件基本结构

Delphi让程序运行后自我删除或恢复名称

Delphi xe安装2010版控件

Delphi 文件查找findfirst,findnext,findclose

Delphi通过adoquery控件实现sqlserver数据库多结果集的数据打印

Delphi 用cxgrid显示联合查询数据和更改数据

Delphi文件监视主单元文件

Delphi xe5 android平台 调用 webservice

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

转载请注明出处：木庄网络博客 » Delphi 处理链接和文件路径结尾\和/