unit DelphiUnit; interface uses  System.Generics.Collections; type  TCity = class    Country: String;    Latitude: Double;    Longitude: Double;  end;   // You cannot use TDictionary<String, TCity> in C++ unless you first  // instantiate it in Delphi as follows:  CityDictionary = class(TDictionary<String, TCity>)  end; implementation end.

#pragma hdrstop#pragma argsused #ifdef _WIN32#include <tchar.h>#else  typedef char _TCHAR;  #define _tmain main#endif #include <iostream>#include <DelphiUnit.hpp> const double EPSILON = 0.0000001;  int _tmain(int argc, _TCHAR* argv[]) {    // Create the dictionary.    TDictionary__2<UnicodeString, TCity*>* dictionary = new TDictionary__2<UnicodeString, TCity*>(0);    TCity* city;     // Add some key-value pairs to the dictionary.     city = new TCity;    city->Country = "Romania";    city->Latitude = 47.16;    city->Longitude = 27.58;    dictionary->Add("Iasi", city);     city = new TCity;    city->Country = "United Kingdom";    city->Latitude = 51.5;    city->Longitude = -0.17;    dictionary->Add("London", city);     city = new TCity;    city->Country = "Argentina";    city->Latitude = 0;             // Wrong coordinates    city->Longitude = 0;    // on purpose.    dictionary->Add("Buenos Aires", city);     // Display the current number of key-value entries.    std::wcout << "Number of pairs in the dictionary: " << dictionary->Count << "." << std::endl;     // Try looking up "Iasi".    if (dictionary->TryGetValue("Iasi", city))            std::wcout << "Iasi is located in " << city->Country                       << " with latitude = " << city->Latitude                       << " and longitude = " << city->Longitude                       << "." << std::endl;    else        std::wcout << "Could not find Iasi in the dictionary." << std::endl;     // Remove the "Iasi" key from the dictionary.    dictionary->Remove("Iasi");     // Make sure that the capacity of the dictionary is set to the number of entries.    dictionary->TrimExcess();     // Test if "Iasi" is a key in the dictionary.    if (dictionary->ContainsKey("Iasi"))        std::wcout << "The key \"Iasi\" is in the dictionary." << std::endl;    else        std::wcout << "The key \"Iasi\" is not in the dictionary." << std::endl;     if (dictionary->ContainsKey("London")) {         // Test how (United Kingdom, 51.5, -0.17) is a value in the dictionary...        dictionary->TryGetValue("London", city);        if (city->Country == "United Kingdom" && (city->Latitude - 51.5) < EPSILON && (city->Longitude - -0.17) < EPSILON)            std::wcout << "The value (United Kingdom, 51.5, -0.17) is in the dictionary." << std::endl;        else            std::wcout << "Error: The value (United Kingdom, 51.5, -0.17) is not in the dictionary." << std::endl;         // ...but ContainsValue returns False if passed a different instance of        // TCity with the same data, as different instances have different references.        city = new TCity;        city->Country = "United Kingdom";        city->Latitude = 51.5;        city->Longitude = -0.17;        if (dictionary->ContainsValue(city))            std::wcout << "Error: A new instance of TCity with values (United Kingdom, 51.5, -0.17) matches an existing instance in the dictionary." << std::endl;        else            std::wcout << "A new instance of TCity with values (United Kingdom, 51.5, -0.17) does not match any existing instance in the dictionary." << std::endl;         delete city;    }    else {        std::wcout << "Error: The key \"London\" is not in the dictionary." << std::endl;    }     // Update the coordinates to the correct ones.    city = new TCity;    city->Country = "Argentina";    city->Latitude = -34.6;    city->Longitude = -58.45;    dictionary->AddOrSetValue("Buenos Aires", city);     // Generate the exception "Duplicates not allowed".    try {            dictionary->Add("Buenos Aires", city);    } catch (Exception &e) {            std::wcout << "Could not add entry. Duplicates are not allowed." << std::endl;    }     // Display all countries.    std::wcout << "All countries:" << std::endl;    DynamicArray<TCity*> cityValues = dictionary->Values->ToArray();    const int cityCount = cityValues.get_length();    for (int i = 0; i < cityCount; i++) {        std::wcout << cityValues[i]->Country << std::endl;    }     // Iterate through all keys in the dictionary and display their coordinates.    std::wcout << "All cities and their coordinates:" << std::endl;    DynamicArray<UnicodeString> cityKeys = dictionary->Keys->ToArray();    for (int i = 0; i < cityCount; i++) {        dictionary->TryGetValue(cityKeys[i], city);        std::wcout << cityKeys[i] << ": " << city->Latitude << ", " << city->Longitude << std::endl;    }     // Clear all entries in the dictionary.    dictionary->Clear();     // There should be no entries at this point.    std::wcout << "Number of key-value pairs in the dictionary after cleaning: " << dictionary->Count << std::endl;     std::cin.get();    return 0;}