1. 程式人生 > >(轉載)Delphi TStringList的用法

(轉載)Delphi TStringList的用法

Delphi TStringList的用法

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;

//排序與倒排序

{排序函式}

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;


現在來討論它的一些高階的用法。

先把要討論的幾個屬性列出來:

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);

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);

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);

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);

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);

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型別 procedure TForm1.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幫助