firetoucher(风焱)兄,接分!

解决方案 »

  1.   

    我那个单元文件以后能帮你很大的忙主要几个函数ListValueListCount我在这里说明一下
      

  2.   

    QXJ,你在学习C#?没有前途,HOHOHOHO~~~~~~~~~~````
      

  3.   

    function ListCount(mList: string; mDelimiter: string ): Integer;返回 “返回列表数” 不知道叫什么合适 hehe^^比如 a:='aaa,bbb,ccc' b:='asdf(|dddsss(|bbbbbb(|ss'使用 ListCount(a, ',') 就会返回 3 你就可以用 for 循环加 ListValue取你想要的那段值同样 ListCount(a, '(|') 就会返回......function ListValue(mList: string; mIndex: Integer; mDelimiter: string = ','): string;
    { 返回列表指定位置的元素 }procedure TFrom1.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      a:='aaa,bbb,ccc';
      for i := 0 to ListCount(a, ',') - 1 do
      begin
        ShowMessage(ListValue(a, i));  //如果分割符是','号,就不用写了
        //ShowMessage(ListValue(a, i, ')|'));  这是其它的情况下的使用方法
      end;
    end;好打完收工 hehe^^