根据分隔符将一个长字符串分割保存到动态数组中

来源：互联网发布：淘宝刷单怎么找客户编辑：程序博客网时间：2024/04/19 17:48

// 分隔字符串，ch为分隔符，Source需要分隔的字符串function SplitString(const source, ch: string): TStringDynArray;var  temp: pchar;  i: Integer;begin  Result := nil;  if source = '' then    exit;  temp := pchar(source);  i := pos(ch, temp);  while i <> 0 do  begin    SetLength(Result, Length(Result) + 1);    Result[Length(Result) - 1] := copy(temp, 0, i - 1);    Inc(temp, Length(ch) + i - 1);    i := pos(ch, temp);  end;  SetLength(Result, Length(Result) + 1);  Result[Length(Result) - 1] := temp;end;// 按Seperator分割Source，返回第Index部分，例如：Part('ab|cd|ef','|',1)='cd'function Part(source, Seperator: string; Index: Integer): string;var  SS: TStringDynArray;begin  SS := SplitString(source, Seperator);  if (Index>=Low(SS)) and (Index<=High(SS)) then    Result := SS[Index]  else    Result := '';end;