如何把一串带很多逗号的字符串分割？

Question

如何把逗号中间的字符串提取出来保存到数组里面？

Answer 1

逗号都能找到，用copy就可以把逗号见的字符取出啊

Answer 2

基本上用到pos   leftstr   rightstr这些函数，你自己看看就能搞出来...

Answer 3

var
  aStr : array[0..99] of String;
  sOldString : string;
  i,nPos : integer;
begin
  sOldString := 'eerto340.,39ti3,34t90324,w9';
  i := 0;
  nPos := Pos(',',sOldString);
  while nPos > 0 do
  begin
    aStr[i] := Copy(sOldString,0,nPos - 1);
    sOldString := Copy(sOldString,nPos + 1,500);
    nPos := Pos(',',sOldString);
    i ++;
  end;
  aStr[i] := Copy(sOldString,0,nPos - 1);
end;

Answer 4

var T:TStrings;
begin
  T:=Tstringlist.Create;
  T.Delimiter:=',';
  T.DelimitedText:='ad,ba,jinjazz,vac,afe,agaef,df';
  showmessage(T[2]); //T[2] is jinjazz
  T.Free;
end;

Answer 5

to jinjazz(近身剪*10年磨一贴) ( ) 但是如何把所有的子字符串都读出来呢？不知道那个T的长度啊，有多少个字符串