//TStringList 常用方法與屬性:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1'); {添加}
List.Add('Strings2');
List.Exchange(0,1); {置換}
List.Insert(0,'Strings3'); {插入}
i := List.IndexOf('Strings1'); {第一次出現的位置}
List.Sort; {排序}
List.Sorted := True; {指定排序}
List.Count; {總數}
List.Text; {文本集合}
List.Delete(0); {刪除, 0是第一個數據}
List.LoadFromFile('c:/tmp.txt');{打開}
List.SaveToFile('c:/tmp.txt'); {保存}
List.Clear; {清空}
List.Free; {釋放}
end;
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;
通過這個例子不難看出：
第一行的結果爲：
0
1
2
3
第二行的結果爲：
aaa
bbb
ccc
ddd
第三行的結果爲：
aaa
bbb
ccc
ddd
