關於 TStringList 的用法

2021-04-29 05:08:40 字數 2726 閱讀 3968

最近在用delphi開發一些專案的時候,處理一條字串傳遞多個引數的時候,發現了乙個不錯的東西,拿來分享一下。下面的是其的基本用法。

tstrings是乙個抽象類,在實際開發中,是除了基本型別外,應用得最多的。

常規的用法大家都知道,現在來討論它的一些高階的用法。

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

1、commatext

2、delimiter & delimitedtext

3、names & values & valuefromindex

先看第乙個:commatext。怎麼用呢?用**說話:

const

constr :string = 'aaa,bbb,ccc,ddd';

varstrs :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';

varstrs :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"';

varstrs :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|';

varstrs :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';

varstrs :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中則是:01

23在values中則是:

aaabbb

cccddd

Delphi中TStringList的用法

tstrings是乙個抽象類,在實際開發中,是除了基本型別外,應用得最多的。常規的用法大家都知道,現在來討論它的一些高階的用法。先把要討論的幾個屬性列出來 1 commatext 2 delimiter delimitedtext 3 names values valuefromindex 一 co...

TStringList的使用技巧

tstringlist的使用技巧 注 tony 原創 name value 應用於一些根據鍵值找對應值的情況 1.增加一項設定 stringlist.add 1班上班時間 11 00 stringlist.add 1班下班時間 18 00 2.判斷是否有此專案,沒有則增加,有則修改 if strin...

TStringList 訪問物件的特點

分析 tstringlist 訪問物件的特點 在 delphi 中儲存系列物件,大家常用 tlist 類 有了 tobjectlist 在 contnrs 單元 以後,儲存物件就有了更好的選擇,因為從 tobjectlist 列表中移除的物件同時會得到釋放.很少有人使用 tstringlist 儲存...