关于字段分割的问题

Question

一个string，其中以逗号将一串字符进行分割，现在要根据逗号取出每一段

Answer 1

procedure DecodeLineStr(const expression, spliter: string; var valuesList: TStrings);
var
  deliterPos, i: Integer;
  lineStr: string;
begin
  i := 0;
  lineStr := expression;
  deliterPos := Pos(spliter, lineStr);
  while deliterPos > 0 do
  begin
    valuesList.Add(Copy(lineStr, 1, deliterPos - 1));
    lineStr := Copy(lineStr, deliterPos + 1, Length(lineStr) - deliterPos);
    Inc(i);
    deliterPos := Pos(spliter, lineStr);
  end;
  valuesList.Add(lineStr);
end;
//每一段存在valuesList里

Answer 2

spliter为','
expression为你要切割的string