Delphi中stringlist分割字符串的用法

原文：http://hi.baidu.com/lzj1981/item/6ab9cb762720565e0d0a078c

TStrings是一個抽象類，在實際開發中，是除了基本類型外，應用得最多的。
　　常規的用法大家都知道，現在來討論它的一些高級的用法。
　　1、CommaText
　　2、Delimiter &DelimitedText
　　3、Names &Values &ValueFromIndex
　　先看第一個：CommaText。怎麼用呢？
　　const
　　　　constr :String = 'aaa,bbb,ccc,ddd';
　　var
　　 strs :TStrings;
　　 i :Integer;
　　begin
　　 strs := TStringList.Create;
　　 strs.CommaText := constr;
　　 for i := 0 to Strs.Count-1 do
　　 ShowMessage(Strs[i]);
　　end;
　　執行了這段代碼後，可以看到ShowMessage顯示出來的分別是：aaa bbb ccc ddd。
　　也就是說，strs.CommaText := constr這一句的作用，
　　就是把一個字符串以','爲分割符，分段添加到TStrings中。
　　那麼如果不是以','來分割，又該怎麼做呢？現在看第二個例子。使用Delimiter和DelimitedText。
　　const
　　　　constr :String = 'aaa\bbb\ccc\ddd';
　　var
　　 strs :TStrings;
　　 i :Integer;
　　begin
　　 strs := TStringList.Create;
　　 strs.Delimiter := '\';
　　 strs.DelimitedText := constr;
　　 for i := 0 to Strs.Count-1 do
　　 ShowMessage(Strs[i]);
　　end;
　　可以看到， 顯示的效果和第一個例子是一模一樣的。解釋一下：
　　Delimiter爲分隔符，默認爲：','。DelimitedText就是按Delimiter爲分隔符的一個串，
　　得到賦值後回把這個字符串按Delimiter的字符添加到TStrings中。
　　說到這裏，有想起一個屬性，QuoteChar。其默認值爲：'"'（不包括單引號）
　　有何用呢？看例子：
　　const
　　　　constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';
　　var
　　 strs :TStrings;
　　 i :Integer;
　　begin
　　 strs := TStringList.Create;
　　 strs.Delimiter := '\';
　　 strs.DelimitedText := constr;
　　 for i := 0 to Strs.Count-1 do
　　 ShowMessage(Strs[i]);
　　end;
　　顯示出來的仍然是aaa bbb ccc ddd。爲什麼不是："aaa" "bbb" "ccc" "ddd"呢？
　　再來看一個例子：
　　const
　　constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';
　　var
　　 strs :TStrings;
　　 i :Integer;
　　begin
　　 strs := TStringList.Create;
　　 strs.Delimiter := '\';
　　 strs.QuoteChar := '|';
　　 strs.DelimitedText := constr;
　　 for i := 0 to Strs.Count-1 do
　　 ShowMessage(Strs[i]);
　　end;
　　顯示出來的又是aaa bbb ccc ddd。對比一下，應該不難明白吧？這個就不多說了，用得也不多。
　　但是還要多說一句，當Delimiter爲：','而QuoteChar爲：'"'時，
　　DelimitedText和CommaText是同等的。
　　最後要說的三個是：Names &Values &ValueFromIndex。
　　看看下面的代碼：
　　const
　　　　constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';
　　var
　　 strs :TStrings;
　　 i :Integer;
　　begin
　　 strs := TStringList.Create;
　　 strs.CommaText := constr;
　　 for i := 0 to strs.Count-1 do
　　 begin
　　 ShowMessage(strs.Names[i]);
　　 ShowMessage(strs.Values[strs.Names[i]]);
　　 ShowMessage(strs.ValueFromIndex[i]);
　　 end;
　　end;
　　通過這個例子不難看出：
　　這個時候strs中的內容是：
　　0=aaa
　　1=bbb
　　2=ccc
　　3=ddd
　　而Names中則是：
　　0
　　1
　　2
　　3
　　在Values中則是：
　　aaa
　　bbb
　　ccc
　　ddd