delphi 实现从下载链接提取文件名的函数

本文整理自网络，侵删。

 
//uses strutils;
 function ExtractUrlFileName(const Url: string): string;
var //www.delphitop.com
str:string;
begin
str:=reversestring(Url);
str:=copy(str,1,pos('/',str)-1);
str:=reversestring(str);
Result:=str;
end; 
相反根据链接提取网址 http://www.delphitop.com/html/zifuchuan/1950.html
 

相关阅读 >>

Delphi模仿“千千静听”滚动标题栏，非常简单！

Delphi 获取一个文件夹下的一级目录

Delphi 得到cxgrid筛选后的记录数

Delphi清空回收站

Delphi图片增加文字水印

Delphi tms web core 在线pdf教程

Delphi 返回整数的四种情况

Delphi 运行clsid文件

Delphi调用createprocess创建进程

Delphi idhttp读取网页重定向

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

转载请注明出处：木庄网络博客 » delphi 实现从下载链接提取文件名的函数