如何将“11/08/2005-RC410-SB450-PTRC-GC-00”字符串当遇到“/”“-”时，把它分开存到其它字符串变量中？？？

Question

如何将“11/08/2005-RC410-SB450-PTRC-GC-00”字符串当遇到“/”“-”时，把它分开存到其它字符串变量中？？？

Answer 1

可以用最笨的方法，一个字符一个字符的比较，帮你写一个吧，效率很低，如果你需要处理大量数据的话再提出来，帮你优化procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  sl: TStringList;
  i: integer;
function Split(s: string; c1, c2: Char): TStringList;
var
  i: integer;
begin
  Result := TStringList.Create;
  while (Pos(c1, s)>0) or (Pos(c2, s)>0) do
  begin
    for i:=1 to Length(s) do
    begin
      if (s[i]=c1) or (s[i]=c2) then
      begin
        Result.Add(Copy(s, 1, i-1));
        s := Copy(s, i+1, Length(s));
        break;
      end;
    end;
  end;
  if Length(s)>0 then Result.Add(s);
end;
begin
  str := '11/08/2005-RC410-SB450-PTRC-GC-00';
  sl := TStringList.Create;
  sl := Split(str, '/', '-');
  for i:=0 to sl.Count-1 do
    ShowMessage(sl[i]);
  FreeAndNil(sl);
end;