Creating a dictionary and adding key, value pairs

First a new dictionary is created with the name TestDict. A for loop adds key- value pairs with the data type TCollectibleLong.

  char * myDict = "TestDict";
  TAssoc* myAssoc;
  
  TDiskDictionary*  dict = new TDiskDictionary(myDict);
  
  for (long i=1, j=i+1; i <= 10; i++, j++) {
      TCollectibleLong key(i);
      TCollectibleLong val(j);
      dict->Add(key,val); 
  }