隨筆-17  評論-64  文章-79  trackbacks-1
          TStrings是一個抽象類,在實際開發中,是除了基本類型外,應用得最多的。
          常規的用法大家都知道,現在來討論它的一些高級的用法。
          先把要討論的幾個屬性列出來:
          1、CommaText
          2、Delimiter & DelimitedText
          3、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[i]);
          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[i]);
          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[i]);
          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[i]);
          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[i]);
              ShowMessage(strs.Values[strs.Names[i]]);
              ShowMessage(strs.ValueFromIndex[i]);
            end;
          end;
          通過這個例子不難看出:
          這個時候strs中的內容是:
          0=aaa
          1=bbb
          2=ccc
          3=ddd
          而Names中則是:
          0
          1
          2
          3
          在Values中則是:
          aaa
          bbb
          ccc
          ddd 
           
          posted on 2007-05-11 15:47 飛鳥 閱讀(6509) 評論(3)  編輯  收藏 所屬分類: Delphi

          評論:
          # re: TStringList的用法 [未登錄] 2007-08-05 09:30 | xxx
          好,不錯!!!  回復  更多評論
            
          # re: TStringList的用法 2007-12-13 14:22 | javaapi
          好啊!  回復  更多評論
            
          # re: TStringList的用法 2008-03-14 10:47 | 江流
          good  回復  更多評論
            
          主站蜘蛛池模板: 进贤县| 称多县| 连江县| 左权县| 金沙县| 桓台县| 左云县| 灵丘县| 舒城县| 明溪县| 凯里市| 潼关县| 巴林左旗| 鄂温| 徐水县| 文化| 芷江| 昌宁县| 龙海市| 鄂伦春自治旗| 永泰县| 阜康市| 丰顺县| 平安县| 榆社县| 枣阳市| 卫辉市| 阿拉尔市| 简阳市| 龙游县| 昭觉县| 容城县| 天长市| 固原市| 土默特右旗| 万宁市| 麻栗坡县| 临潭县| 额敏县| 剑川县| 增城市|