delphi 从URL地址中获得文件名

function GetFileNameFromURL(url: string): string;var ts : TStrings;begin //从url取得文件名 ts := TStringList.create; try ts.Delimiter :='/'; ts.DelimitedText := url; if ts.Count > 0 then Result := ts[ts.Count - 1]; finally ts.Free; end;end;

原理很简单，使用‘/'分割字符串，然后去最后一个。