RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

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

作者:admin 来源: 日期:2018/1/29 20:19:24 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料