TStringList分割字符串

begin
TmpStrList := TStringList.Create;
try
TmpStrList.Delimiter := '-';
TmpStrList.StrictDelimiter := True;
TmpStrList.NameValueSeparator := #0;
TmpStrList.Duplicates := dupAccept;
TmpStrList.QuoteChar := #0;

DoSomething;
finally
TmpStrList.Free;
end;
end;