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 之 热键组件(thotkey)

Delphi只获取文件名（不带扩展名）

Delphi中建议使用的语句

Delphi在case语句中使用字符串

Delphi弹出信息框大全

idhttp获取文件大小的代码

Delphi 遍历控件

Delphi获取进程和模块信息

Delphi获取盘符代码

Delphi debug和release区别

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

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