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 获取当前目录下所有文件名3

Delphi varchar和nvarchar区别

Delphi 屏幕dpi计算

Delphi安全结束线程

Delphi 把字节数显示成kb或gb的函数

Delphi - 右滚动文字

Delphi窗体固定在桌面上

Delphi第三方控件通用安装方法

tstringgrid 添加鼠标拖动功能

Delphi 给力版 getprocaddress

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

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