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颜色转换函数

minsperday：一天中有多少分钟

Delphi 循环 low high 用法

Delphi 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi 如何把一个exe做为res加入到dll中，并在运行时生成exe文件执行

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