Спарсить названия фотографий

[FleXik]

Есть список картинок, например:
http://cs622517.vk.me/v622517492/3d3e5/IHjPZhVsAzQ.jpg
http://cs624226.vk.me/v624226548/3f2ff/EFlwhkeCo78.jpg
http://cs629128.vk.me/v629128287/9b5a/cicRkWvVEhw.jpg
http://cs7063.vk.me/c7008/v7008182/3...rLgue6Yfh4.jpg


как можно спарсить названия картинок? IHjPZhVsAzQ.jpg и т.д..

[Аватар]

Да и парсить особо нечего, просто

ExtractFileName(StringReplace('http://cs7063.vk.me/c7008/v7008182/3...rLgue6Yfh4.jpg','/','\',[rfReplaceAll]))

[min@y™]

Вариант на быстрых нейтронах. Без SysUtils.pas:

function URLExtractFileName(pURL: PChar): PChar;
begin
  Result:= pURL;
  repeat
    if pURL^ = '/'
      then Result:= pURL + 1;
    Inc(pURL);
  until pURL^ = #0;
end;