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 判断 文本文件 utf-8 bom头

Delphi 读写文本文件

Delphi 取出鼠百标点击的 stringgrid 中某单度元格的值

Delphi版文件夹加密软件源代码

Delphi xe7 android通过配置实现splash功能

Delphi inttohexansi

Delphi得到系统目录的几个方法

Delphi idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi debug与release的区别

Delphi调用java编写的webservice

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

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