Delphi 中有类似VB中的Split函数吗

Question

procedure StrToStrings(S: AnsiString; Sep: AnsiString; const List: TStrings);
var
  I, L: Integer;
  Left: AnsiString;
begin
  Assert(List <> nil);
  List.Clear;
  L := Length(Sep);
  I := Pos(Sep, S);
  while (I > 0) do
  begin
    Left := LeftStr(S, I - 1);
    List.Add(Left);
    Delete(S, 1, I + L - 1);
    I := Pos(Sep, S);
  end;
  if S <> '' then
    List.Add(S);
end;

Answer 1

var
  list: TStringList;
begin
  list := TStringList.Create;
  list.Text := WrapText('The rain in Spain falls mainly on the plain.', #13#10, [' '], 45);
....
  list[0]->The
  list[1]->rain
....
  list.Free;
end;

Answer 2

//==============================================================================
//返回指定的两个子串之间的字符串如输入'【9999】','【','】'输出'9999'************
//==============================================================================
function InterStr(Str,HeadStr,TailStr: string): string;
begin
  Result := Copy(Str, AnsiPos(HeadStr,Str)+Length(HeadStr), AnsiPos(TailStr,Str)-AnsiPos(HeadStr,Str)-Length(HeadStr));
end;

Answer 3

var
  list: TStringList;
begin
  list := TStringList.Create;
  list.commatext:=s;//s是你要分割的字符串
end;
  list[0],list[1]...就是你想得到的分割后的字符串

Answer 4

1、先找到","所在的位置（可用循环将其存到一数组中）
2、利用copy（）函数,看了其参数，你就会很容易解决了！