mORMot Open Source

Junior/RO

Member

Registered: 2011-05-13

Posts: 207

TSynDictionary: keys and values

Arnaud, what is the best approach to get keys and values from a TSynDictionary instance?

I have a dictionary where the keys are Double and the values are integers. My objective is get the count of integers by key. And I am using this:

My HugeList[] is a TDoubleDynArray:

  D := TSynDictionary.Create(TypeInfo(TDoubleDynArray), TypeInfo(TIntegerDynArray));
  try
    for I := 0 to High(HugeList) do begin
        if D.FindAndCopy(HugeList[I], N) then
            N := N + 1
        else
            N := 1;
        D.AddOrUpdate(HugeList[I], N);
    end;
    SetLength(Keys, D.Keys.Count);  // get a copy of the keys        <--- this works, but
    D.Keys.Slice(Keys, D.Keys.Count);
    SetLength(Counts, D.Values.Count);  // get a copy of the values  <--- there are a better way?
    D.Values.Slice(Counts, D.Values.Count);
  finally
    D.Free;
  end;

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,224

Website

Re: TSynDictionary: keys and values

I guess that the SetLength() are not mandatory.

Just call TDynArray.Slice, which will be very fast in your case.

Junior/RO

Member

Registered: 2011-05-13

Posts: 207

Re: TSynDictionary: keys and values

Yeah that works. Thank you.