本文整理自网络,侵删。
function GetFileNameFromURL(const aURL: string): string;
var ts : TStrings;
begin
//从url取得文件名
ts := TStringList.create;
try
ts.Delimiter :='/';
ts.DelimitedText := aURL;
if ts.Count > 0 then
Result := ts[ts.Count - 1];
finally
ts.Free;
end;
end;
相关阅读 >>
Delphi 如何在tmemo,tedit或trichedit中获得插入符的位置
更多相关阅读请进入《Delphi》频道 >>