refactor: changed the TComparer to use UTF8 instead of default ANSI

Author: corneliusdavid

entries/dcornelius/src/uChallengeWithDictionary.pas

@@ -22,6 +22,11 @@ implementation
 type
   TWeatherCityList = TDictionary<string, TWeatherCity>;
 
+  TUTF8CustomComparer = class(TInterfacedObject, IComparer<string>)
+  public
+    function Compare(const Left, Right: string): Integer;
+  end;
+
 var
   WeatherCityList: TWeatherCityList;
 
@@ -43,7 +48,7 @@ procedure ChallengeWithDictionary;
 
       // create the output list
       CityArray := WeatherCityList.Keys.ToArray;
-      TArray.Sort<string>(CityArray, TStringComparer.Ordinal);
+      TArray.Sort<string>(CityArray, TUTF8CustomComparer.Create);
       FirstOutput := True;
       Write('{');
       for var City in CityArray do
@@ -60,4 +65,12 @@ procedure ChallengeWithDictionary;
     end;
 end;
 
+{ TUTF8CustomComparer }
+
+function TUTF8CustomComparer.Compare(const Left, Right: string): Integer;
+begin
+  // Convert UTF-8 strings to UnicodeString for comparison
+  Result := CompareStr(UTF8ToWideString(Left), UTF8ToWideString(Right));
+end;
+
 end.