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 7 编写一个ie右键菜单项目：自动保存图片

Delphi dbgrid适应宽度

Delphi 操作前，删除前，覆盖前，询问对话框

Delphi 的链式代码

Delphi 为idhttp伪造session

Delphi的常用条件编译指令

Delphi基于sobel算子的图像边缘检测

crc32.pas

Delphi远程注入dll方法

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

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