最近在用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 儲存...