如何将一个字符串分割成多个字符串呢？

Question

var str:string;srr1:integer;
beginstr:=aaa:23424:1><bbb:2352:0;
str1:=pos（'>',str);
str1:=str1-1;
copy(str,1,str1);//取出>前的字符
str1:=str1+2;
delete（str,1,str1);//str就是取出<后的字符
end;

Answer 1

str:='aaa:23424:1><bbb:2352:0';

Answer 2

//处理简单情况
procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := '<aaa:23424:1><bbb:2353:0><ccc:21312:9>';
  with TStringList.Create do try
    Text := Trim(StringReplace('>' + S + '<', '><', #13#10, [rfReplaceAll]));
    { TODO -oZswang -c2002-09-07 : 遍历访问Strings[I] }
    ShowMessage(Text); //try
  finally
    Free;
  end;
end;

Answer 3

用Copy分别拷贝出来嘛，就是繁琐一点