delphi里有没有截取字符的涵数
有一个网络地址如;http://www.sina.com.cn/images/11.bmp
如何只得到最后的文件名11.bmp
请高手指点,在线等待,解决马上给分

[解决办法]
//写了一个看看满足楼主要求不？

procedure TForm1.Button1Click(Sender: TObject);
function GetUrlFileName( url:string ):string;
var
I:Integer;
temp:string;
begin
temp:= url;
I:= Pos( '/ ',url );
while I > 0 do
begin
temp:=copy( temp, I+1, length( temp ) - i );
i:= Pos( '/ ',temp );
end;
Result:=temp;
end;
begin
showmessage( GetUrlFileName( 'http://www.sina.com.cn/images/11.bmp ' ) );
end;