Delphi总结使用TStrings的一些技巧

[delphi]   view plain copy print ?

1. 先把要讨论的几个属性列出来：  
2. 1、CommaText  
3. 2、Delimiter & DelimitedText  
4. 3、Names & Values & ValueFromIndex   
5. 先看第一个：CommaText。怎么用呢？用代码说话：  
6. const  
7.   constr :String = 'aaa,bbb,ccc,ddd';  
8. var  
9.   strs :TStrings;  
10.   i :Integer;  
11. begin  
12.   strs := TStringList.Create;  
13.   strs.CommaText := constr;  
14.   for i := 0 to Strs.Count-1 do  
15.     ShowMessage(Strs[i]);  
16. end;  
17. 执行了这段代码后，可以看到ShowMessage显示出来的分别是：aaa bbb ccc ddd。  
18. 也就是说，strs.CommaText := constr这一句的作用，就是把一个字符串以'',''为分割符，分段添加到TStrings中。  
19. 那么如果不是以'',''来分割，又该怎么做呢？现在看第二个例子。使用Delimiter和DelimitedText。  
20. const  
21.   constr :String = 'aaa\bbb\ccc\ddd';  
22. var  
23.   strs :TStrings;  
24.   i :Integer;  
25. begin  
26.   strs := TStringList.Create;  
27.   strs.Delimiter := '\';  
28.   strs.DelimitedText := constr;  
29.   for i := 0 to Strs.Count-1 do  
30.     ShowMessage(Strs[i]);  
31. end;  
32. 可以看到， 显示的效果和第一个例子是一模一样的。解释一下：  
33. Delimiter为分隔符，默认为：'',''。DelimitedText就是按Delimiter为分隔符的一个串，得到赋值后会把这个字符串按Delimiter的字符添加到TStrings中。  
34. 说到这里，有想起一个属性，QuoteChar。其默认值为：''"''（不包括单引号）  
35. 有何用呢？看例子：  
36. const  
37.   constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';  
38. var  
39.   strs :TStrings;  
40.   i :Integer;  
41. begin  
42.   strs := TStringList.Create;  
43.   strs.Delimiter := '\';  
44.   strs.DelimitedText := constr;  
45.   for i := 0 to Strs.Count-1 do  
46.     ShowMessage(Strs[i]);  
47. end;  
48. 显示出来的仍然是aaa bbb ccc ddd。为什么不是："aaa" "bbb" "ccc" "ddd"呢？  
49. 再来看一个例子：  
50. const  
51.   constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';  
52. var  
53.   strs :TStrings;  
54.   i :Integer;  
55. begin  
56.   strs := TStringList.Create;  
57.   strs.Delimiter := '\';  
58.   strs.QuoteChar := '|';  
59.   strs.DelimitedText := constr;  
60.   for i := 0 to Strs.Count-1 do  
61.     ShowMessage(Strs[i]);  
62. end;  
63. 显示出来的又是aaa bbb ccc ddd。对比一下，应该不难明白吧？这个就不多说了，用得也不多。  
64. 但是还要多说一句，当Delimiter为：'',''而QuoteChar为：''"''时，DelimitedText和CommaText是同等的。  
65. 最后要说的三个是：Names & Values & ValueFromIndex。  
66. 看看下面的代码：  
67. const  
68.   constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';  
69. var  
70.   strs :TStrings;  
71.   i :Integer;  
72. begin  
73.   strs := TStringList.Create;  
74.   strs.CommaText := constr;  
75.   for i := 0 to strs.Count-1 do  
76.   begin  
77.     ShowMessage(strs.Names[i]);  
78.     ShowMessage(strs.Values[strs.Names[i]]);  
79.     ShowMessage(strs.ValueFromIndex[i]);  
80.   end;  
81. end;  
82. 通过这个例子不难看出：  
83. 这个时候strs中的内容是：  
84. 0=aaa  
85. 1=bbb  
86. 2=ccc  
87. 3=ddd  
88. 而Names中则是：  
89. 0  
90. 1  
91. 2  
92. 3  
93. 在Values中则是：  
94. aaa  
95. bbb  
96. ccc  
97. ddd  
98. 这几个属性用来处理ini文件是非常好用的。  
99. 另外说一句，在Delphi6下似乎没有ValueFromIndex这个属性  

转载于:https://www.cnblogs.com/qingsong/p/3507169.html