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 opendialog文件过滤类型

Delphi中调用http xml

Delphi 对比两个文件是否相同的函数

Delphi webbrowser获取页面全部链接

Delphi定时器相关的简单例子

Delphi窗口随机类名

Delphi 检查屏幕是否处于锁屏或关闭状态

Delphi检查网络连接状态3种方式

Delphi 熊猫烧香核心源码

Delphi实现解析百度搜索结果link？url=

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

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