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中url的汉字编码

Delphi读取android短信信息

Delphi 在tedit中显示水印提示

Delphi web service 多表提交的事务管理

Delphi中安装和使用kol和mck

Delphi 获得当前进程所使用的内存

Delphi fmx 从app程序直接跳转到支付宝付款转帐页面

Delphi extractclassname 字符串处理函数

Delphi fdmemtable1 清空

Delphi 取系统临时路径

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

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