IDictionary.Add

Копировать пример

Sub UserProc;
Var
    Hash: IHashtable;
    i: Integer;
    s: String;
    c: Char;
Begin
    Hash := New Hashtable.Create;
    //Генерация случайной хеш-таблицы
    For i := 0 To 10 Do
        Hash.Add("Key_" + Math.RandBetweenI(0, 100).ToString, Char.Chr(Math.RandBetweenI(65, 90)));
    End For;
    //Просмотр сгенерированных ключей
    For Each s In Hash.Keys Do
        Debug.WriteLine(s);
    End For;
    //Просмотр сгенерированных значений
    For Each c In Hash.Values Do
        Debug.WriteLine(c As String);
    End For;
End Sub UserProc;