分割字符串 ExtractStrings

//分割字符串 ExtractStrings
var
  s: String;
  List: TStringList;
begin
  s := 'about: #delphi; #pascal, programming';
  List := TStringList.Create;
  ExtractStrings([';',',',':'],['#',' '],PChar(s),List);
  //第一个参数是分隔符; 第二个参数是开头被忽略的字符

  ShowMessage(List.Text);  //about
                           //delphi
                           //pascal
                           //programming
  List.Free;
end;

 

修改源码中的一行，可以处理"5,,1,2,3,湖北省-荆州市-荆州荆中路"连续分隔符的情况。

  if (Head <> Tail) and (Head^ <> #0) then改成  if  (Head^ <> #0) then即可。

 

另外一个分隔字符串过程(由IdGlobal原来过程修改而成)

procedure SplitDelimitedString(const AData: string; AStrings: TStrings; const ADelim: string = ' ');
var
i: Integer;
LData: string;
LDelim: Integer; //delim len
LLeft: string;
LLastPos, LLeadingSpaceCnt: PtrInt;
begin
Assert(Assigned(AStrings));
AStrings.Clear;
LDelim := Length(ADelim);
LLastPos := 1;

LData := AData;
if LData = '' then begin //if WhiteStr
Exit;
end;
LLeadingSpaceCnt := 0;
while AData[LLeadingSpaceCnt + 1] <= #32 do begin
Inc(LLeadingSpaceCnt);
end;
i := Pos(ADelim, LData);
while I > 0 do begin
LLeft := Copy(LData, LLastPos, I - LLastPos); //'abc d' len:=i(=4)-1 {Do not Localize}
AStrings.Add(Trim(LLeft));
LLastPos := I + LDelim; //first char after Delim
i := PosIdx(ADelim, LData, LLastPos);
end;//while found
if LLastPos <= Length(LData) then begin
AStrings.Add(Trim(Copy(LData, LLastPos, MaxInt)));
end;
end;