java重写tostring方法 delphiTStringList的用法？

delphiTStringList的用法？

dephi中没有象VB中的split函数，但是使用TStringList类的 Delimter 和 DelimtedText 两个属性可以很容易的把字符串分割，然后放入 TStrings里面.例:s:="aa，bb，cc，dd"ts := TStringList.Createts.Delimter := "，"ts.DelimtedText := s//这时 ts里面就存放了 aa bb cc dd 这四个strings了. 你只要通过 ts[0]就可以取第一个数据function SplitString(Source， Deli: string ): TStringListstdcallvarEndOfCurrentString: byteStringList:TStringListbeginStringList:=TStringList.Createwhile Pos(Deli， Source)>0 dobeginEndOfCurrentString := Pos(Deli， Source)StringList.add(Copy(Source， 1， EndOfCurrentString - 1))Source := Copy(Source， EndOfCurrentString length(Deli)， length(Source) - EndOfCurrentString)endResult := StringListStringList.Add(source)end procedure StrToStrs(str:stringstrs:tstrings)var temp:string i:integerlabel B，EbeginB:i:= ansipos("|"，str)if i=0 THEN GOTO Estrs.Add(ansileftstr(str，i-1))str:=ansirightstr(str，length(str)-i)GOTO BE:end

java重写tostring方法 循环list取值 map怎么取值

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。