Delphi TStringList的用法
原文:http://blog.163.com/net_cwp/blog/static/1829400352011725850463/點擊打開鏈接
TStrings是一個抽象類,在實際開發中,是除了基本類型外,應用得最多的。
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;
//排序與倒排序
{排序函數}
functionDescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result :=-AnsiCompareText(List[Index1], List[Index2]);
end;
procedureTForm1.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;
現在來討論它的一些高級的用法。
先把要討論的幾個屬性列出來:
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 toStrs.Count-1 do
ShowMessage(Strs);
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 toStrs.Count-1 do
ShowMessage(Strs);
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 toStrs.Count-1 do
ShowMessage(Strs);
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 toStrs.Count-1 do
ShowMessage(Strs);
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 tostrs.Count-1 do
begin
ShowMessage(strs.Names);
ShowMessage(strs.Values[strs.Names]);
ShowMessage(strs.ValueFromIndex);
end;
end;
通過這個例子不難看出:
這個時候strs中的內容是:
0=aaa
1=bbb
2=ccc
3=ddd
而Names中則是:
0
1
2
3
在Values中則是:
aaa
bbb
ccc
ddd
===============================================================================================
TStringList 和 TList
在本章中,我們只討論TStringList,而將TList放在下一章中再詳細討論
第一章、TStringList
在這裏我們要講解TStringList,但同時有一個相關類是不能忽略的,那就是TStrings類
TStringList是由TStrings派生而來,而Tstrings是一個抽象類,他繼承於Tpersistent類。
因此,我們將TStrings類和 TStringList類一同講解,並做比較
1、TStrings、TStringList不是可視組件,只是兩個通用類,因此他們與可視組件TMemo、TRichEdit沒有可比性。
2、TStrings、TStringList都是管理“字符串-附屬對象”這樣一個列表,前者是抽象類,不能被實例化,只是定義了一些通用的屬性、方法,而後者是從TStringList繼承而來,可以實例化使用。如:
var
S1, S2: TStrings;
S3: TStringList;
begin
S1 :=TStrings.Create; //這樣就不可以(因爲TStrings是抽象類,不能直接創建對象)
S3 := TStringList.Create; //這樣是可以的
S2 := TStringList.Create; //這樣也是可以的(多態的典型使用)
end;
注意:
上面S2的聲明是TStrings類型,他是將一個TStringList類創建了對象之後,賦值給聲明的TStrings變量。這是典型的多態的使用。(什麼?你不知道什麼是多態?乖乖隆咚,這可是大腕啊,這都不認識,趕緊餓補一下再回來找小飛龍~~~~)
我說過TStrings類是TStringList類的父類,多態使用中,子類對象賦值給父類變量後,變量的使用範圍(屬性、方法)是要注意的,子類沒有的屬性或方法,變量是不能使用的,而需要類型轉換TStringList(S2)之後才能調用。如下面的代碼段
var
S:TStrings;
begin
S := TStringList.Create;//TStringList實現了TStrings中的抽象方法。
S.Add('123456789ABC'); //所以這樣調用Add方法,是正確的;
//因爲TStrings類中是有Add方法的抽象聲明的;
//它實際調用的是子類TStringList實現的Add。
S.Sort //而這樣調用Sort排序方法就會出錯;
//因爲TStrings類中沒有Sort方法的聲明;
//而變量S被聲明爲TStrings類,所以他看不到子類中繼承後新增加的方法和屬性。
S.Free;
end;
上面代碼中TStringList類中有一個方法,叫做Sort(這是一個排序的方法),但是在TStrings類裏面卻沒有,他是TStringList子類新增加的方法。那麼好了,在上面的程序代碼段中,如果這樣調用代碼S2.Sort,哈哈,馬上你就會看到編譯器報錯,具體爲什麼,大家可以好好地想一想,或者參考李維大師的著作閱讀相關章節。
var
S1, S2: TStrings;
S3: TStringList;
begin
S1 :=TStrings.Create; //這樣就不可以(因爲TStrings是抽象類,不能直接創建對象)
S3 := TStringList.Create; //這樣是可以的
S2 := TStringList.Create; //這樣也是可以的(多態的典型使用)
S1.Add('123456789ABC'); //報錯了,因爲S1中Add是抽象方法,只有聲明
S.Free;
end;
我們再來看看上面代碼中的S1變量,你可以聲明TStrings的對象,但是,如果你像上面那樣創建他,那麼編譯器編譯的時候會發出警告信息,列出TStrings類中的抽象方法,提醒你,這是一個抽象類,你不應該直接創建他的對象,當然,如果你不怕死,非要編譯運行程序的話,也沒問題,編譯器對警告信息一般是放過的,所以,你的程序(如上面所示)仍然可以運行!
但是,嘿嘿,看見了嗎?我說但是了,如果你在後面的代碼中使用了你所創建的TStrings對象的那些 add,delete等方法的話,那你就死定了,因爲這些是抽象方法,是不能用的,是Abstract方法。
爲什麼第二段代碼中的S.Add('123456789ABC')不會有問題,可以很好地執行;但是第三段代碼中的S1.Add('123456789ABC')就會報錯呢?,他們的S和S1變量不都是TStrings類型嗎?
關於這個問題,本小飛龍已經點的很清楚了,這是面向對象程序設計語言中非常重要的一個環節“多態性”,如果讀者對這個概念不清楚,那麼很多東西都會稀裏糊塗,會走很多彎路,所以,趕緊看看相關的資料。在這裏我們就不說了,我只說一句:這非常重要!!!!
3、TMemo是我們常見的一個可視化VCL組件,通常用於顯示多行的純文本內容。
Delphi 5中其Items屬性類型是TStrings(實際上是繼承自TStrings的TMemoStrings),因此可以直接從TStrings兼容類型的變量導入數據。
Delphi 7中組件有變化,沒有了Items屬性,取而代之的是Lines屬性,類型是TStrings。
4.TRichEdit是另一個我們常見的一個可視化VCL組件,通常用於顯示格式化的文本內容。
Delphi 5中其Items屬性類型也是TStrings(實際上是繼承自TStrings的TRichEditStrings),因此可以直接從TStrings兼容類型的變量導入數據。
Delphi 7中組件有變化,沒有了Items屬性,取而代之的是Lines屬性,類型是TStrings。
5、TStrings的派生類主要用於管理字符串集合和對象集合。例如Delphi5中TStringList在內部分別爲字符串和對象各聲明瞭一個數組來存儲數據,而在Delphi7中TStringList在內部是以一個記錄類型來實現,因此他們能同時保存字符串和對象(注意:一般我們用TStringList來處理數組列表,而用下一章將要講到的TList類來處理對象列表;但事實上TStringList類也是可以處理對象的,關於這一點,只要讀者仔細看看Delpgi7中的TStringList類VCL的源代碼就明白了,注意源代碼中私有變量是一個記錄類型)。
6、一般我們直接使用TStringList類而不是TStrings類,因爲TStrings類是一個抽象類,不能直接使用,所以下面我們列出TStringList類的方法,並重點講解其作用
方法描述
Add 在末尾添加一個字符串 TStringList.Add('123456789ABC ')
AddObject 在末尾添加一個對象 TStringList.AddObject('btn',Button1);
Insert 在指定位置插入一個字符串 TStringList.Insert(0, '123456789ABC ')
InsertObject 在指定位置插入一個字符串,並給他分配一個相應的對象
舉例:將窗體中的所有組件的組件名稱放入ListBox的Item屬性中
Item屬性是一個TStrings類型 procedureTForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Form1.ComponentCount-1 do
ListBox1.Items.InsertObject(0,Form1.Components[I].Name,Form1.Components[I] as TObject);
end;
Delete 在指定位置刪除一個字符串,如果字符串配有對象,那麼對象也刪除 TStringList.Delete('0')
Clear 清空列表字符串,如果字符串配有對象,那麼對象也被移出,但是對象不會被釋放
Exchange 交換兩個字符串的位置,如果字符串配有對象,那麼對象也被交換TStringList.Exchange(0,1)
Find 查找一個已知字符串在列表中的位置,注意方法聲明中的Index的聲明是 var Index
TStringList.Find(const S: string; var Index: Integer): Boolean;
IndexOf 與Find不同,IndexOf用來查找某一字符串指定的位置
TStringList.IndexOf(const S: string): Integer;
Sort 排序,Sorted屬性設置爲False的時候,調用Sort排序;
Sorted屬性
Sorted屬性設置爲False的時候,調用Sort排序;
Sorted屬性設置爲True的時候,列表自動排序,這時,就不要使用Insert了,而應使用Add來添加,系統會自動排序的;
CustomSort 客戶自定義排序,這個我們不作介紹,有興趣看Delphi幫助
CaseSensitive 設定字符串比較、取位置時,大小寫是否敏感,這個我們不作介紹,有興趣看Delphi幫助
Duplicates 添加字符串的時候,是否允許重複字段Add,這個我們不作介紹,有興趣看Delphi幫助