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; 原理很简单,使用‘/'分割字符串,然后去最后一个。