''' пример использования хэш-таблицы из библиотеки IUP
''' WQ, 2017

'' путь до iup.bi и iup_table.bi, пропишите свой
#Include Once "inc/iup/iup.bi"
#Include Once "inc/iup/iup_table.bi"

'' создаем хэш-таблицу строкового типа
Dim itb As Itable Ptr
itb = iupTableCreate(IUPTABLE_STRINGINDEXED)

'' создаем массив со строками и заполняем
Dim aString(...) As String ={"100", "200", "300", "400", "500", "600", "700", "100"}

'' заполняем хэш-таблицу
'' в данном случае ключ и данные - одна и та же строка
For j As Integer = 0 To UBound(aString)
   Dim As String key=aString(j)

   If iupTableGet(itb, key) <> 0 Then '' проверяем, есть ли такой ключ в таблице
      ? key, "was already" '' выводим значение из массива с указанием, что такой значение уже встречалось
   Else
      ? key, "was not yet" '' выводим значение из массива с указанием, что такого значение еще не встречалось
   EndIf
   
   '' пример показывает, как с помощью хэш-таблицы можно быстро обработать массив строковых данных - например, удалить повторяющиеся строки

  iupTableSet(itb, key, StrPtr(aString(j)), IUPTABLE_STRING) '' вносим данные по ключу в хэш-таблицу
   '' если ключ уже встречался, значение будет перезаписано, т.е. в данном случае хэш-таблица содержит только уникальные строки из массива
Next

?
?
?
'' выводим количество элементов в таблице
? iupTableCount(itb), "count key"
''например, сравнение с размером массива ubound(массив)+1 позволит определить, есть ли в массиве повторяющиеся строки
?
?
?

'' далее перебор значений хэш-таблицы
Dim As ZString Ptr key
key = iupTableFirst(itb) '' начинаем обход таблицы с первого значения
'' в цикле последовательно выводим с помощью iupTableGetCurr все значения из таблицы
While(key)
   Dim As ZString Ptr zs
   zs = Cast(ZString Ptr,iupTableGetCurr(itb))
   ? *zs
   key = iupTableNext(itb)   
Wend

Sleep 15000
iupTableClear(itb) '' функция для очищения хэш-таблицы
iupTableDestroy(itb) '' функция уничтожения хэш-таблицы