delphiTStringList的用法？dephi中沒有象VB中的split函數(shù)，但是使用TStringList類的 Delimter 和 DelimtedText 兩個屬性可以很容易的把字符串分割

delphiTStringList的用法？

dephi中沒有象VB中的split函數(shù)，但是使用TStringList類的 Delimter 和 DelimtedText 兩個屬性可以很容易的把字符串分割，然后放入 TStrings里面.例:s:="aa，bb，cc，dd"ts := TStringList.Createts.Delimter := "，"ts.DelimtedText := s//這時 ts里面就存放了 aa bb cc dd 這四個strings了. 你只要通過 ts[0]就可以取第一個數(shù)據(jù)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