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

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

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

    隨筆 - 6  文章 - 129  trackbacks - 0
    <2025年7月>
    293012345
    6789101112
    13141516171819
    20212223242526
    272829303112
    3456789

    常用鏈接

    留言簿(14)

    隨筆檔案(6)

    文章分類(467)

    文章檔案(423)

    相冊

    收藏夾(18)

    JAVA

    搜索

    •  

    積分與排名

    • 積分 - 829293
    • 排名 - 49

    最新評論

    閱讀排行榜

    評論排行榜

    copy:http://www.jackfeng.com/archives/276/

    {-------------------------------------------------------------------------------
    過程名:    MakeFileList 遍歷文件夾及子文件夾
    作者:      SWGWEB
    日期:      2007.11.25
    參數:      Path,FileExt:string   1.需要遍歷的目錄 2.要遍歷的文件擴展名
    返回值:    TStringList

       Eg:ListBox1.Items:= MakeFileList( 'E:\極品飛車','.exe') ;
           ListBox1.Items:= MakeFileList( 'E:\極品飛車','.*') ;
    -------------------------------------------------------------------------------}
    function MakeFileList(Path,FileExt:string):TStringList ;
    var
    sch:TSearchrec;
    begin
    Result:=TStringlist.Create;

    if rightStr(trim(Path), 1) <> '\' then
        Path := trim(Path) + '\'
    else
        Path := trim(Path);

    if not DirectoryExists(Path) then
    begin
        Result.Clear;
        exit;
    end;

    if FindFirst(Path + '*', faAnyfile, sch) = 0 then
    begin
        repeat
           Application.ProcessMessages;
           if ((sch.Name = '.') or (sch.Name = '..')) then Continue;
           if DirectoryExists(Path+sch.Name) then
           begin
             Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));
           end
           else
           begin
             if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then
             Result.Add(Path+sch.Name);
           end;
        until FindNext(sch) <> 0;
        SysUtils.FindClose(sch);
    end;
    end;

    ------------------------------------------------------------------------------------------------------------------------------------

    字符截取函數LeftStr, MidStr, RightStr
    這幾個函數都包含在StrUtils中,所以需要uses StrUtils;
    假設字符串是 Dstr := ’Delphi is the BEST’, 那么
    LeftStr(Dstr, 5) := ’Delph’
    MidStr(Dstr, 6, 7) := ’i is th’
    RightStr(Dstr, 6) := ’e BEST’

    ~~~~~~~~~~~~~~~~~~~~~~~~~
    function RightStr
        (Const Str: String; Size: Word): String;
    begin
      if Size > Length(Str) then Size := Length(Str) ;
      RightStr := Copy(Str, Length(Str)-Size+1, Size)
    end;
    function MidStr
        (Const Str: String; From, Size: Word): String;
    begin
      MidStr := Copy(Str, From, Size)
    end;
    function LeftStr
        (Const Str: String; Size: Word): String;
    begin
      LeftStr := Copy(Str, 1, Size)
    end;

    這幾個函數經常結合Pos, Length, Copy使用




    posted on 2010-05-19 11:48 Ke 閱讀(3562) 評論(0)  編輯  收藏 所屬分類: delphi
    主站蜘蛛池模板: 浮力影院第一页小视频国产在线观看免费 | 中文字幕无码一区二区免费| 99爱在线精品视频免费观看9| 永久免费无码网站在线观看| 97亚洲熟妇自偷自拍另类图片| 国产成人va亚洲电影| 中文字幕无码播放免费| 亚洲国产一成人久久精品| 色婷婷精品免费视频| 久久亚洲中文字幕精品一区| 久久久久亚洲av无码专区喷水 | 狼群影院在线观看免费观看直播| 免费人成在线观看播放国产| 久久久久亚洲国产AV麻豆| 免费看黄视频网站| 欧洲 亚洲 国产图片综合| 91麻豆最新在线人成免费观看| 亚洲性69影院在线观看| 中国在线观看免费高清完整版| 亚洲福利电影在线观看| 成人免费大片免费观看网站| 亚洲精品视频免费在线观看| 最近中文字幕免费完整| 亚洲影视自拍揄拍愉拍| 毛片网站免费在线观看| 亚洲av无码专区青青草原| 亚洲AV无码乱码精品国产| 9久热这里只有精品免费| 亚洲国产精品热久久| 一个人看www在线高清免费看| 亚洲乱色伦图片区小说| www亚洲精品少妇裸乳一区二区| 9久热这里只有精品免费| 中文字幕亚洲色图| 在线免费不卡视频| g0g0人体全免费高清大胆视频| 久久亚洲日韩看片无码| 日本免费网站在线观看| 日本在线免费观看| 国产精品亚洲一区二区三区久久 | 成人免费视频小说|