本文整理自网络,侵删。
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;
相关阅读 >>
Delphi enablecontrols,disablecontrols函数
Delphi中操作olevariant、variant和stream
Delphi 字符串中末位是双字节字符的处理(避免最后一位为乱码)
Delphi sysutils.trim、sysutils.trimleft、sysutils.trimright - 删除空格
Delphi concat 连接两个或多个字符串为一个字符串
更多相关阅读请进入《Delphi》频道 >>