欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

TStrings是一個(gè)抽象類(lèi)，在實(shí)際開(kāi)發(fā)中，是除了基本類(lèi)型外，應用得最多的。
常規的用法大家都知道，現在來(lái)討論它的一些高級的用法。
先把要討論的幾個(gè)屬性列出來(lái)：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex
先看第一個(gè)：CommaText。怎么用呢？用代碼說(shuō)話(huà)：
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[i]);
end;
執行了這段代碼后，可以看到ShowMessage顯示出來(lái)的分別是：aaa bbb ccc ddd。
也就是說(shuō)，strs.CommaText := constr這一句的作用，就是把一個(gè)字符串以','為分割符，分段添加到TStrings中。
那么如果不是以','來(lái)分割，又該怎么做呢？現在看第二個(gè)例子。使用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[i]);
end;
可以看到， 顯示的效果和第一個(gè)例子是一模一樣的。解釋一下：
Delimiter為分隔符，默認為：','。DelimitedText就是按Delimiter為分隔符的一個(gè)串，得到賦值后回把這個(gè)字符串按Delimiter的字符添加到TStrings中。
說(shuō)到這里，有想起一個(gè)屬性，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[i]);
end;
顯示出來(lái)的仍然是aaa bbb ccc ddd。為什么不是："aaa" "bbb" "ccc" "ddd"呢？
再來(lái)看一個(gè)例子：
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[i]);
end;
顯示出來(lái)的又是aaa bbb ccc ddd。對比一下，應該不難明白吧？這個(gè)就不多說(shuō)了，用得也不多。
但是還要多說(shuō)一句，當Delimiter為：','而QuoteChar為：'"'時(shí)，DelimitedText和CommaText是同等的。
最后要說(shuō)的三個(gè)是：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[i]);
    ShowMessage(strs.Values[strs.Names[i]]);
    ShowMessage(strs.ValueFromIndex[i]);
  end;
end;
通過(guò)這個(gè)例子不難看出：
這個(gè)時(shí)候strs中的內容是：
0=aaa
1=bbb
2=ccc
3=ddd
而Names中則是：
0
1
2
3
在Values中則是：
aaa
bbb
ccc
ddd

如何避免TStringList里的Items雷同？
利用屬性Duplicates來(lái)做避免：
 


var
  sl : TStringList;
begin
  sl := TStringList.Create;
  with sl do
  begin
    Sorted     := True;
    Duplicates := dupIgnore;

    //
    // 在這里添加 items，所有雷同的會(huì )忽略
    //
    Add(Input1.text);
  end;

  ListBox1.Items.Assign(sl);
  sl.Free;
end;