Delphi 中 TStrings 一些用法

Delphi TStrings是一個抽象類，在實際開發中，是除了基本類型外，應用得最多的。 
常規的用法你們都知道，如今來討論它的一些高級的用法。 
先把要討論的幾個屬性列出來： 
一、CommaText 
二、Delimiter & DelimitedText 
三、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

在網上看到了.原來能夠這樣的: 

先StringReplace用一個特殊字符替代空格，而後StringReplace回來 

ss:='aa|bb c| c'; 

ss:= StringReplace(ss,' ','#',[rfReplaceAll]); 

s:= TStringList.Create; 

s.Delimiter:= '|'; 

s.DelimitedText:= ss; 

for i:= 0 to s.Count - 1 do 

begin 

s[i]:= StringReplace(s[i],'#',' ',[rfReplaceAll]); 

memo1.Lines.Add(s[i]); 

end; 





DelimitedText空格也默認爲分割符的緣由很簡單: 

Borland的程序員把這個屬性對應的write方法的一行代碼寫錯了而已, 

你找到classes文件中的 

procedure TStrings.SetDelimitedText(const Value: string); 

var 

P, P1: PChar; 

S: string; 

begin 

BeginUpdate; 

try 

Clear; 

P := PChar(Value); 

while P^ in [#1..' '] do 

{$IFDEF MSWINDOWS} 

P := CharNext(P); 

{$ELSE} 

Inc(P); 

{$ENDIF} 

while P^ <> #0 do 

begin 

if P^ = QuoteChar then 

S := AnsiExtractQuotedStr(P, QuoteChar) 

else 

begin 

P1 := P; 

// while (P^ > ' ') and (P^ <> Delimiter) do 

while (P^ > '') and (P^ <> Delimiter) do 

看到我修改的地方了吧,你們讀讀代碼就知道那位寫源代碼的大俠本意也應該如此,他多加個空格而已,因此就變成一遇到空格切分了.對了改完後要從新編譯classes.pas文件,而後把輸出的Dcu放到Lib目錄下