| 这个问题要用这么复杂的程序? 第一个方法: 写个函数就可以了,下面的是取字符串中以特殊字符分割的第N个字符: function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string; var sList:TStringList; begin Result:=''; sList:=TStringList.Create; sList.Text:=StringReplace(Astring,Dlmter,#13#10,[rfReplaceAll]); if (nPos>0) and (sList.Count>=nPos) then Result:=sList[nPos-1]; end; 调用: showmessage(GetDelimiteredStringN('*fdfds*asdaet*gfgfdh*gfdr*','*',3));//第3个*后的字符. 第二个方法: var str : TStringList; str := TStringList.Create; str.Delimiter := '*'; str.DelimitedText :='*fdfds*asdaet*gfgfdh*gfdr*'; showmessage(str.Text); |
原创文章如转载，请注明：转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]
本文链接地址：http://www.abcxd.com/delphi/abcxddelphi/DELPHIWEBSJ/46.html