Delphi 巧用TstringList

TStringList 中有一个属性Delimiter，很多时候可以巧用这个属性！有一字符串，中间有许多特殊符号，现在需要把其分割开，如果用TStringList的Delimiter属性，将会使程序变得非常简单。TStringList中的DelimitedText会以定义的Delimiter字符做分隔符！

例子：

var
  List: TStringList;
  s: string;
  i: integer;
begin
  //假设字符串中的分隔符为  间隔符： %%/##/??/!!
  Memo2.Lines.Clear;
  List := TStringList.Create;
  List.Delimiter := ',';    //用','号做分隔符
  s := Memo1.Text;
  try
    s := StringReplace(s, '%%', ',', [rfReplaceAll]);
    s := StringReplace(s, '##', ',', [rfReplaceAll]);
    s := StringReplace(s, '??', ',', [rfReplaceAll]);
    s := StringReplace(s, '!!', ',', [rfReplaceAll]);
    List.DelimitedText := s;
    For i:=0 to List.Count-1 do
      if List[i]<>'' then
        Memo2.Lines.Add(List[i]);
  finally
    List.Free;
  end;
end;