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 removedir 删除文件夹

Delphi中exit,abort,break,continue,halt,runerro 的区别

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）

Delphi 随鼠标移动的十字线的快速画法

Delphi 跳出循环的几种方法

Delphi 在ie上增添一个按钮

Delphi获取系统安全软件信息

Delphi中关键字inherited

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

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