摘要: //接收文件 function TForm1.GetURLFileName(aURL: string): string; var i: integer; s: string; begin //返回下载地址的文件名 s := aURL; i := Pos('/', s); while i <> 0 d 阅读全文
posted @ 2018-02-23 16:11 普森 阅读(399) 评论(0) 推荐(0)