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 xe, xe10, 创建 activeform 和 activex 工程的方法

Delphi图片上写水印文字函数

Delphi 如何从url提取文件名？

Delphi 创建console-控制台应用

Delphi取整函数

Delphi杀进程的两种方式

Delphi 通过进程名获得文件全路径的函数

Delphi研究之驱动开发篇（七）--利用共享内存与用户模式

Delphi bytestofile

datasnap 上传/下载大文件(本demo以图传片文件为例)

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

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