如何分解字符串？

Question

如何将字符串 string = 'AAAAA;BBBB;CCC;DDDD';
分解为个字符串 A = 'AAAAA';
              B = 'BBBB';
              C = 'CCC';
              D = 'DDDD';

Answer 1

SourceStr源字符串，SepChar分隔符，这里填写"；"
function StrToStrList(SourceStr, SepChar: String): TStringList;
var
  SepPos: Integer;
  TempStr: String;
  Len: Integer;
begin
  Result := TStringList.Create;
  TempStr := SourceStr;
  while Pos(SepChar, TempStr) <> 0 do
  begin
    Len := Length(TempStr);
    SepPos := Pos(SepChar, TempStr);
    Result.Add(Copy(TempStr, 1, SepPos - 1));
    TempStr := Copy(TempStr, SepPos + 1, Len - SepPos);
  end;
  Result.Add(TempStr);
end;以上函数，得到少少启发

Answer 2

用不着那么麻烦：function StrToStrList(SourceStr): TStringList;
var
begin
  Result := TStringList.Create;
  Result.Text:=StringReplace(SourceStr,';',#10,rfReplaceAll);
end;