字符串截取

Question

字符串格式：aa:='0005252，0005222，0005333，0005222...'
如何根据逗号的位置截取 s[1]:='0005252';s[2]:='0005222';s[3]:='0005333'
aa字符串无限长
所以S[i]不是固定的

Answer 1

var list : TStringlist;
    i : integer;
begin
  List := TStringlist.Create;
  List.Clear;
  List.Delimiter := ',';
  List.DelimitedText := aa;
  For i := 0 to List.count - 1 do 
  begin
    showmessage(list.strings[i]);
  end;
  list.free;
end;

Answer 2

var List:TStringList;
  aa:string;
begin
  aa:='0005252，0005222，0005333，0005222...';
  List:=TStringList.Create;
  try
    List.Text:=StringReplace(aa,'，',#13,[rfReplaceAll]);
    List.Strings[i]//这就是你想要的
  finally
    List.Free;
  end;
end;

Answer 3

一楼的方法对于一般字符分割可以，但你的逗号为全角的，所以List.Delimiter赋值会出错，呵呵

Answer 4

关键就是用StringReplace这个Function