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

===========================================================================================
//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;

---

//讀入字符串
var
? List: TStringList;
begin
? List := TStringList.Create;
? List.CommaText := 'aaa,bbb,ccc,ddd';
//相當于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';

? ShowMessage(IntToStr(List.Count)); //4
? ShowMessage(List[0]); //aaa

? List.Free;
end;

---

//置換分隔符
var
? List: TStringList;
begin
? List := TStringList.Create;
? List.Delimiter := '|';
? List.DelimitedText := 'aaa|bbb|ccc|ddd';

? ShowMessage(IntToStr(List.Count)); //4
? ShowMessage(List[0]); //aaa

? List.Free;
end;

---

//類似的哈希表操作法
var
? List: TStringList;
begin
? List := TStringList.Create;

? List.Add('aaa=111');
? List.Add('bbb=222');
? List.Add('ccc=333');
? List.Add('ddd=444');

? ShowMessage(List.Names[1]); //bbb
? ShowMessage(List.ValueFromIndex[1]); //222
? ShowMessage(List.Values['bbb']); //222

//ValueFromIndex 可以賦值:
? List.ValueFromIndex[1] := '2';
? ShowMessage(List[1]); //bbb=2

//可以通過 Values 賦值:
? List.Values['bbb'] := '22';
? ShowMessage(List[1]); //bbb=22

? List.Free;
end;

---

//避免重復值
var
? List: TStringList;
begin
? List := TStringList.Create;

? List.Add('aaa');

? List.Sorted := True; //需要先指定排序
? List.Duplicates := dupIgnore; //如有重復值則放棄

? List.Add('aaa');

? ShowMessage(List.Text); //aaa

//Duplicates 有3個可選值:
//dupIgnore: 放棄;
//dupAccept: 結束;
//dupError: 提示錯誤.

? List.Free;
end;

---

//排序與倒排序
{排序函數}
function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
? Result := -AnsiCompareText(List[Index1], List[Index2]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
? List: TStringList;
begin
? List := TStringList.Create;

? List.Add('bbb');
? List.Add('ccc');
? List.Add('aaa');

//未排序
? ShowMessage(List.Text); //bbb ccc aaa

//排序
? List.Sort;
? ShowMessage(List.Text); //aaa bbb ccc

//倒排序
? List.CustomSort(DescCompareStrings); //調用排序函數
? ShowMessage(List.Text); //ccc bbb aaa

//假如:
? List.Sorted := True;
? List.Add('999');
? List.Add('000');
? List.Add('zzz');
? ShowMessage(List.Text); //000 999 aaa bbb ccc zzz
end;

轉載于:https://www.cnblogs.com/y232995558/archive/2009/03/17/1413879.html

總結

以上是生活随笔為你收集整理的TStringList的用法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。