Data commit

Task/Hash-from-two-arrays/Delphi/hash-from-two-arrays.delphi

@@ -0,0 +1,42 @@
+program Hash_from_two_arrays;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils,
+  System.Generics.Collections;
+
+type
+  THash = TDictionary<string, Integer>;
+
+  THashHelper = class helper for THash
+    procedure AddItems(keys: TArray<string>; values: TArray<Integer>);
+  end;
+
+{ THashHelper }
+
+procedure THashHelper.AddItems(keys: TArray<string>; values: TArray<Integer>);
+var
+  i: Integer;
+begin
+  Assert(length(keys) = Length(values), 'Keys and values, must have the same size.');
+  for i := 0 to High(keys) do
+    AddOrSetValue(keys[i], values[i]);
+end;
+
+var
+  hash: TDictionary<string, Integer>;
+  i: integer;
+  key: string;
+
+begin
+  hash := TDictionary<string, Integer>.Create();
+  hash.AddItems(['a', 'b', 'c'], [1, 2, 3]);
+
+  for key in hash.Keys do
+    Writeln(key, '   ', hash[key]);
+
+  hash.Free;
+
+  readln;
+end.