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 xe2模拟键盘按键

Delphi实现拖动无标题窗口的5种方法

Delphi10及以上版本安装activex控件

Delphi清除ie临时文件,历史记录

Delphi http post json示例

Delphi 收集了比较全的字符串进制转换

Delphi 任务管理器 获取窗口标题 获取窗口图标

Delphi字符串隐藏

Delphi 实现如何枚举所有打开的ie选项卡

什么是嵌入式数据库

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

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