delphi 分离网址链接最后一层文件目录

本文整理自网络，侵删。

 
function ExtractURLName(const S: String): String;
var
  I, L, K1, K2: Integer;
begin
  L := Length(S);

  result := '';

  K1 := 0;
  K2 := 0;

  for I:= L downto 1 do
    if S[I] = '/' then
      if K2 = 0 then
        K2 := I
      else
      begin
        K1 := I;
        result := Copy(S, K1 + 1, K2 - K1 - 1);
        Exit;
      end;
  result := Copy(S, K1 + 1, K2 - K1 - 1);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(ExtractURLName('http://www.delphitop.com/html/zifuchuan/'));     //结果 zifuchuan
end;
 

相关阅读 >>

Delphi windows 底下根据一个进程的名字杀死一个进程的代码

Delphi json字符串转义

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi tidhttp 超时设置无效的解决方法

Delphi datetimepicker控件日期格式

Delphi 获取鼠标坐标大全方法

Delphi中将webbrowser用作网页编辑器

Delphi 动态数组的释放

Delphi 动态给combobox赋值，从combobox中取值

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

转载请注明出处：木庄网络博客 » delphi 分离网址链接最后一层文件目录