问一个很菜的问题，怎么从行末开始检索 ( 积分: 50 )

我现在正在做一个小程序，比如一个listbox里有好多行<br>c:/ddd/111/123.txt<br>d:/www/s/e3r123.bmp<br>.<br>.<br>e:/ad33/dg/gead.exe<br>大概10行吧<br>如何只得到文件名而不要路径，因为我要用别的东西代替路径比如http://www.111.net/<br>我想过用从行末开始检索，遇到第一个/然后停止，把/后面的截取保存。<br>由于本人比较菜，请问如何进行实现。请高手们指点一下。

我现在正在做一个小程序，比如一个listbox里有好多行<br>c:/ddd/111/123.txt<br>d:/www/s/e3r123.bmp<br>.<br>.<br>e:/ad33/dg/gead.exe<br>大概10行吧<br>如何只得到文件名而不要路径，因为我要用别的东西代替路径比如http://www.111.net/<br>我想过用从行末开始检索，遇到第一个/然后停止，把/后面的截取保存。<br>由于本人比较菜，请问如何进行实现。请高手们指点一下。

var<br> &nbsp;i: integer;<br> &nbsp;Str: string;<br>begin<br> &nbsp;for i := Listbox1.Items.Count - 1 downto 0 do<br> &nbsp;begin<br> &nbsp; &nbsp;Str := Listbox1.Items.Strings;<br> &nbsp;end;<br>end;<br>str就是内容

var<br> &nbsp;i: integer;<br> &nbsp;Str: string;<br>begin<br> &nbsp;for i := 0 to Listbox1.Items.Count - 1 do<br> &nbsp;begin<br> &nbsp; &nbsp;Listbox1.Items.Strings:= 'http://www.111.net/'+ExtractFilename(Listbox1.Items.Strings);<br> &nbsp;end;<br>end;

{ 将分隔符两边的文字分离 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }<br>{ 输入: ASource - 源字符串 AFront - 分隔符前半部分 &nbsp;}<br>{ ABack - 分隔符后半部分 ADelemiter - 分隔符 &nbsp; &nbsp; &nbsp; &nbsp;}<br>{ 例如: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}<br>{ DivideStrByDelemiter('asdf/qwe', '/', AFront, ABack) 那么AFront=asdf, ABack=qwe &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}<br>{ 2005-10-05 21:32 by muhx}<br>procedure DivideStrByDelemiter(const ASource: string; ADelemiter: Char; var AFront,<br> &nbsp;ABack: string);<br>var<br> &nbsp;tmpIndex: Integer;<br>begin<br> &nbsp;tmpIndex := LastDelimiter(ADelemiter, ASource);<br> &nbsp;AFront := LeftStr(ASource, tmpIndex - 1);<br> &nbsp;ABack := RightStr(ASource, Length(ASource) - tmpIndex);<br>end;

ExtractFilename(Listbox1.Items.Strings)<br>这样就可以直接获取文件名了？？？<br>我是从listbox之中获取的是不是要先判断/在哪个位置

天哪原来那么简单的我一直不太懂ExtractFilename怎么用原来配合Listbox1.Items.Strings那么好用呀， 我还以为只能使用application exename呢<br>谢谢高手指教