• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            Welcome to ErranLi's Blog!

              C++博客 :: 首頁 :: 聯系 :: 聚合  :: 管理
              106 Posts :: 1 Stories :: 97 Comments :: 0 Trackbacks

            常用鏈接

            留言簿(12)

            搜索

            •  

            積分與排名

            • 積分 - 176149
            • 排名 - 151

            最新評論

            閱讀排行榜

            (引用)


            {------------------------------------------------------------------------------}
            { procedure ReadStrValues                                                      }
            {                                                                              }
            { 功能說明: 根據指定的分隔符將一個字符串分解為若干個子串                       }
            {           如果傳遞的子串數量超過源串可以解析的字串數, 則多傳的子串將置為空串 }
            { 參    數:                                                                    }
            {   Str   : 待分解的字符串                                                     }
            {   StrArr: 存放分解后的子串的數組, 以字符串指針數組傳遞                       }
            {   Ch    : 分隔符定義, 缺省為 ";"                                             }
            {------------------------------------------------------------------------------}
            procedure ReadStrValues(Str: string; StrArr: array of PString; Ch: Char = ';');
            var
              I, StrLen, StrPos, ArrLen, ArrIndex: Integer;
            begin
              StrLen := Length(Str);      // 字符串長
              ArrLen := Length(StrArr);   // 待取出的字符串個數
              if ArrLen = 0 then Exit;    // 如果字符串指針數組中無元素,則直接退出

              StrPos := 1;                // 當前讀到的字符串位置
              ArrIndex := 0;              // 當前字符串指針數組位置

              // 此處將 Str 長度加1,用于后面判斷是否已讀完整個字串
              for I := 1 to StrLen + 1 do
              begin
                // 注意此處條件位置不可倒置(驟死式判斷)
                if (I = StrLen + 1) or (Str[I] = Ch) then
                begin
                  // 拷貝讀到的字符串
                  StrArr[ArrIndex]^ := Copy(Str, StrPos, I - StrPos);
                  StrPos := I + 1;
                  // 如果需要讀的字符串指針數組已完成,則退出
                  Inc(ArrIndex);
                  if ArrIndex >= ArrLen then Exit;
                end;
              end;

              // 檢查是否所有的字符串指針都讀到了,如果沒有讀到,將被設置為空串
              for I := ArrIndex to ArrLen - 1 do
                StrArr[I]^ := '';
            end;


            {------------------------------------------------------------------------------}
            { 測試該函數                                                                   }
            {------------------------------------------------------------------------------}

            procedure TForm1.FormCreate(Sender: TObject);
            const
              SampleStr = '張三;男;41';
            var
              S1, S2, S3, S4: string;
            begin
              // 正常字串解析
              S1 := 'S1';  S2 := 'S2';  S3 := 'S3';  S4 := 'S4';
              ReadStrValues(SampleStr, [@S1, @S2, @S3]);
              ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

              // 待讀字串少于源串內容測試
              S1 := 'S1';  S2 := 'S2';  S3 := 'S3';  S4 := 'S4';
              ReadStrValues(SampleStr, [@S1, @S2]);
              ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

              // 待讀字串多于源串內容測試
              S1 := 'S1';  S2 := 'S2';  S3 := 'S3';  S4 := 'S4';
              ReadStrValues(SampleStr, [@S1, @S2, @S3, @S4]);
              ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

              // 待讀字串為空測試
              S1 := 'S1';  S2 := 'S2';  S3 := 'S3';  S4 := 'S4';
              ReadStrValues(SampleStr, []);
              ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

              // 源串為空測試
              S1 := 'S1';  S2 := 'S2';  S3 := 'S3';  S4 := 'S4';
              ReadStrValues('', [@S1, @S2, @S3]);
              ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));
            end;

            posted on 2006-12-07 20:17 erran 閱讀(1267) 評論(0)  編輯 收藏 引用 所屬分類: Delphi
            欧美久久综合性欧美| 久久久久久久久久免免费精品| 久久亚洲AV无码精品色午夜| 日本亚洲色大成网站WWW久久 | 日韩精品国产自在久久现线拍| 久久精品国产亚洲精品| 亚洲欧美成人综合久久久| 国产午夜精品理论片久久影视 | 亚洲美日韩Av中文字幕无码久久久妻妇 | 欧洲性大片xxxxx久久久| 精品久久久久久无码专区| 99久久成人18免费网站| 久久无码高潮喷水| 91久久精品国产91性色也| 精品久久久久久国产| 国产成人精品久久亚洲高清不卡| 亚洲精品乱码久久久久66| 久久影视综合亚洲| 91精品国产91热久久久久福利| 久久天天躁狠狠躁夜夜96流白浆 | 国产一级做a爰片久久毛片| 久久精品国产亚洲AV香蕉| 亚洲国产成人久久一区WWW| 国产精品毛片久久久久久久 | 欧美无乱码久久久免费午夜一区二区三区中文字幕 | segui久久国产精品| 久久99精品久久久久子伦| 久久久久久久女国产乱让韩 | 久久综合丁香激情久久| 日日噜噜夜夜狠狠久久丁香五月| 久久99精品久久久大学生| 亚洲精品国精品久久99热| 久久婷婷色综合一区二区| 无码精品久久一区二区三区| 国产精品成人精品久久久| 久久这里只精品国产99热| 99精品久久久久久久婷婷| 伊人色综合久久| 欧美无乱码久久久免费午夜一区二区三区中文字幕 | 国产亚洲美女精品久久久2020| 精品人妻伦九区久久AAA片69|