频道分类

Delphi 如何从URL提取文件名?

作者:admin 来源: 日期:2020/11/11 8:37:04 人气: 标签:

 


//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;