字串处理问题(10分)

  • 主题发起人 主题发起人 fongling5355
  • 开始时间 开始时间
F

fongling5355

Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.ekampung.biz/biz.php<br><br>如何取出 biz.php?
 
使用lastDelimiter('/', str),然后COPY即可
 
var<br>segments: TStringList;<br>i: Integer;<br>begin<br>result := 0;<br>segments := TStringList.Create;<br>segments.Delimiter := '/';<br>segments.DelimitedText := 'http://www.ekampung.biz/biz.php';<br>showmessage(segments[3]);
 
多人接受答案了。
 
后退
顶部