分解字符串的子字符串 键值对

slConnection := TStringList.Create;
slConnection.Delimiter := ‘&‘;
    slConnection.DelimitedText := DBConStr;
    ConnectionConfig.Server := slConnection.Values[‘Server‘];
    ConnectionConfig.Username := slConnection.Values[‘Username‘];
    ConnectionConfig.Password := slConnection.Values[‘Password‘];
    ConnectionConfig.Port := StrToInt(slConnection.Values[‘Port‘]);
    ConnectionConfig.Database := slConnection.Values[‘Database‘];