Delphi 如何从URL提取文件名？

本文整理自网络，侵删。

 


//1
function ExtractUrlFileName(const AUrl: string): string;
var
I: Integer;
begin
I := LastDelimiter('\:/', AUrl);
Result := Copy(AUrl, I + 1, MaxInt);
end;


procedure TForm3.FormCreate(Sender: TObject);

var
  url: string;
begin
Memo1.Clear;
url:=Edit1.text;
try
Memo1.Lines.Add(ExtractUrlFileName(url));


finally

end;
end;



 

相关阅读 >>

Delphi 捕捉全局异常错误的方法

Delphi获取jpg图片的高度、宽度

Delphi xe-xe3下最简单的获取硬盘序列号

Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!

Delphi实现电脑桌面壁纸更换

Delphi webservices 字节数组 base64编码

Delphi 压缩图片算法

Delphi如何获得当前操作系统语言环境

Delphi 获取 access 数据库所有表

Delphi richedit文字背景色的处理

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

转载请注明出处：木庄网络博客 » Delphi 如何从URL提取文件名？