如何分解字符串？

[jxvinus]

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

[ePing]

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;

以上函数，得到少少启发

[myy]

用不着那么麻烦：

function StrToStrList(SourceStr): TStringList;
var
begin
Result := TStringList.Create;
Result.Text:=StringReplace(SourceStr,';',#10,rfReplaceAll);
end;

[lwk_hlj]

学习