【Delphi-语法函数库】Delphi分割字符串

1. var
2.     StringList: TStringList;
3.     i: integer;
4. begin
5.     StringList := TStringList.Create;
6.     StringList.Delimiter := '|';
7.     StringList.DelimitedText := 'aa|bb';
8.     ShowMessage(StringList.Strings[0]);//返回c
9. end;