怎么得到一个url中文件名呢

Question

请问怎么得到一个url中文件名呢
纯是一个url地址,字符串型:
str:='http://www.1.net/PointForum/Forum/dddd.rar';
怎么得到str中的dddd.rar呢

Answer 1

楼主小气，0分帖
function BackwardCharPos( achar:char; s:string):integer;
var
  i,len: integer;
begin
  result :=0;
  len := length(s);
  for i:= len-1 downto 0 do begin
    if s[i] = achar then begin
      result := i;
      break;
    end;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  ss:string;
  len, index:integer;
begin
  ss:= 'http://www.1.net/PointForum/Forum/dddd.rar';
  index := BackwardCharPos('/', ss);   //找最后下个'/'所在的位置
  ss := copy(ss, index+1, length(ss)-index);    //从该位置的下一位置开始copy
  ShowMessage(ss);    //  结果是  dddd.rar
end;

Answer 2

呵呵，正确，
不是我小气，是我刚到论坛，还没分。 我弄到点分了再还给你！你先记个账好吗~谢过JeffChung了！