<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    隨筆-17  評論-64  文章-79  trackbacks-1
    TStrings是一個抽象類,在實際開發(fā)中,是除了基本類型外,應(yīng)用得最多的。
    常規(guī)的用法大家都知道,現(xiàn)在來討論它的一些高級的用法。
    先把要討論的幾個屬性列出來:
    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;
    執(zhí)行了這段代碼后,可以看到ShowMessage顯示出來的分別是:aaa bbb ccc ddd。
    也就是說,strs.CommaText := constr這一句的作用,就是把一個字符串以','為分割符,分段添加到TStrings中。
    那么如果不是以','來分割,又該怎么做呢?現(xiàn)在看第二個例子。使用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為分隔符,默認(rèn)為:','。DelimitedText就是按Delimiter為分隔符的一個串,得到賦值后回把這個字符串按Delimiter的字符添加到TStrings中。
    說到這里,有想起一個屬性,QuoteChar。其默認(rèn)值為:'"'(不包括單引號)
    有何用呢?看例子:
    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。對比一下,應(yīng)該不難明白吧?這個就不多說了,用得也不多。
    但是還要多說一句,當(dāng)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中的內(nèi)容是:
    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 飛鳥 閱讀(6505) 評論(3)  編輯  收藏 所屬分類: Delphi

    評論:
    # re: TStringList的用法 [未登錄] 2007-08-05 09:30 | xxx
    好,不錯!!!  回復(fù)  更多評論
      
    # re: TStringList的用法 2007-12-13 14:22 | javaapi
    好啊!  回復(fù)  更多評論
      
    # re: TStringList的用法 2008-03-14 10:47 | 江流
    good  回復(fù)  更多評論
      
    主站蜘蛛池模板: 亚洲av无码一区二区三区在线播放| 亚洲最大成人网色| 色噜噜噜噜亚洲第一| 色窝窝免费一区二区三区| 久久青青草原亚洲av无码app| 99免费观看视频| 亚洲日本乱码一区二区在线二产线 | 七色永久性tv网站免费看| 亚洲av永久无码精品漫画| 男人j进入女人j内部免费网站| 亚洲成AV人片在线观看无码 | 日韩毛片在线免费观看| 亚洲精品tv久久久久久久久久| 国产精品高清免费网站| 亚洲Av永久无码精品三区在线| 最近中文字幕完整版免费高清| 亚洲AV无码成人专区| 全免费一级午夜毛片| 无遮挡国产高潮视频免费观看| 亚洲精品无码mv在线观看网站| 日韩精品免费视频| 亚洲影视自拍揄拍愉拍| 国产18禁黄网站免费观看| 成人性做爰aaa片免费看| 亚洲综合男人的天堂色婷婷| 女人与禽交视频免费看| 搜日本一区二区三区免费高清视频 | 亚洲精品国精品久久99热| a级毛片在线免费观看| 噜噜噜亚洲色成人网站∨| 午夜小视频免费观看| jzzjzz免费观看大片免费| 久久精品国产亚洲AV高清热| 好大好深好猛好爽视频免费| 三年片免费高清版| 亚洲国产成AV人天堂无码| 又黄又爽一线毛片免费观看| 99久久免费精品高清特色大片| 亚洲国产精品无码久久98| 精品亚洲综合久久中文字幕| 一二三四视频在线观看中文版免费|