Delphi 处理以逗号分隔的长字符串

本文整理自网络，侵删。

 
方法1：

procedure Str_Tools;
var
    TmpList:TStringList;
    IIndex:Integer;
    MUSVOL:String;
begin
    MUSVOL:='0,2,4,6,8,10';
    TmpList:=TStringList.Create;
    try
        while Pos(',',MUSVOL)>0 do
        begin
            IIndex:=Pos(',',MUSVOL);
            TmpList.Add(Copy(MUSVOL,1,IIndex-1));
            Delete(MUSVOL,1,IIndex);
        end;
        TmpList.Add(MUSVOL);
        showmessage(TmpList.Strings[1]);
   finally
        TmpList.free;
   end;
end;


方法2：
procedure Str_Tools2;
var
    I:integer;
    bol:Boolean;
    MUSLIST:Tstringlist;
    Dsp_MusicVol:array [0..6]of integer;
begin
    try
    MUSLIST:=Tstringlist.Create;
MUSLIST.CommaText:='1,3,5,7,9,11';
        for i:=0 to 6 do
        begin
           if (MUSLIST.Count>=i-1) then  Dsp_MusicVol[i]:=strtoint(MUSLIST[i]);
           showmessage(Dsp_MusicVol[i]);
        end;
        
    finally
        MUSLIST.free;
    end;
 
end;

 

相关阅读 >>

Delphi rgb 画出三角形

Delphi firemonkey里触发home按键被按下的事件

dll 使用 pchar 参数的小例子

Delphi 附加数据读取

Delphi httpencode编码

Delphi写一个utf8编码格式的文本文件

Delphi trim 删除字符串左右两边的空格

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi检查自身是否被调试

Delphi遍历所有控件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 处理以逗号分隔的长字符串