169 похожих чатов

Delphi XE7: в случаях, когда TDictionary<TKey,TVal> нужен только как множетсво

ключей (проверка наличия, уникальность, резиновость, получение списка) - продолжать использовать TDictionary или есть специализированая альтернатива?

21 ответов

2 просмотра

https://docwiki.embarcadero.com/Libraries/Athens//en/System.Generics.Collections.THashSet проверь с какой он версии только

Karagy- Автор вопроса
Viktor Akselrod
https://docwiki.embarcadero.com/Libraries/Athens//...

в XE7 нет. спасибо. значит словарь.

Viktor Akselrod
https://docwiki.embarcadero.com/Libraries/Athens//...

Вот в 10.4 такого конечно из коробки да, не хватает, приходится свое городить

Boris Usievich
А вытащить реализацию из 12? исходник же есть

Нафига? Её руками написать за 5 минут можно :)

THashSet<T>

Karagy- Автор вопроса
Boris Usievich
А вытащить реализацию из 12? исходник же есть

у кого есть, у кого нет. я вот BufferedFileStream стащил с гитхаба 5 лет назад. а теперь и не найти

Karagy
у кого есть, у кого нет. я вот BufferedFileStream ...

Да его писать то, ну полчаса времени, я штатный даже и не использую, вот как тут https://github.com/AlexanderBagel/CPUView/blob/main/src/CpuView.Stream.pas#L34

TEmptyRecord = record end;

Karagy- Автор вопроса
notme
TEmptyRecord = record end;

пустая рекорд она для другого предназначена. например для serosize меток между полями в структуре.

Karagy
пустая рекорд она для другого предназначена. напри...

Она TDictionary позволит превратить в Set без накладных расходов

Karagy- Автор вопроса
Karagy
Set не резиновый

не понял? В HashSet

У меня есть свой TArrayEX<T> Там есть "exists".

Karagy- Автор вопроса
notme
не понял? В HashSet

я понял как написали - Set - значит Set. а не HashSet

Karagy- Автор вопроса
notme
Она TDictionary позволит превратить в Set без накл...

А, вы предлагаете использовать её как значение? Даже не знаю, не сломается-ли что-нибудь -)

Karagy- Автор вопроса
zamtmn
а что должно сломаться?

вроде работает, но пришлось завести константу для подстановки экземпляра пустого рекорда.

notme
Она TDictionary позволит превратить в Set без накл...

Ой, ли. Где-то эти пустые записи хранятся :)

Похожие вопросы

Обсуждают сегодня

Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
48
а проверьте, собирается ли у кого сейчас транк лазаря через делюкс? у меня вот: fpcupdeluxe: info: Lazarus Native Installer (BuildModuleCustom: UserIDE): LazBuild: building Us...
Iluha Companets
20
Такой вопрос: Почему DocLister, если указать другие шаблоны для пагинации - ко всем указанными шаблоном присваивается пустая строка?
Кирилл Гацевич
11
добрый день. возможно ли изменить цвет окон лазаруса? Как?
Budemposmotret
35
This is a big issue. Just by being a citizen of a country, you are denied to contribute to Open Source software: https://youtu.be/L5Ec5jrpLVk?si=1iIuHnMPbCB4anV-
Sharuzzaman Ahmat Raslan
72
Мне тут приспичило встроить в программу форматировние текста SQL, расставить переносы строк и отступы так, чтобы лучше читалось. Я что-то свое изобразил, оно после ключевых сл...
Sergey Bodrov
6
Господа, а кто-нибудь сталкивался с размещением на TTabControl/TTabSheet множества контролов (> 100) с последующими External: Access violation? Вот буквально на ровном месте. ...
Dmitry
29
Вот например простой пример, как получить стоимость хешрейта монеты монеро с сайта whattomine.com c использование сеарилизатора при парсинге JSON TaskProfit := TTask.Run(proc...
Delphi Coder
2
А какие существуют способы обработки ошибок выделения памяти в ядре? Т.е., допустим, есть функция, которая возвращает адрес свободной страницы в физической памяти и диапазон в...
disba1ancer
51
Does anyone have some zeroday's left?
Wito!d ♥️🩷
44
Карта сайта