Несколько вопросов по TDictionary / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Несколько вопросов по TDictionary

26 сообщений из 26, показаны все 2 страниц

все

Несколько вопросов по TDictionary

#40097222

hlopotun

Гость

Всем доброго дня,
мучают сомнения.
1. приведёт ли уничтожение обьекта после помещения его в коллекцию TDictionary к уничтожению его и в коллекции TDictionary?
2. Надо ли проходить TDictionary и уничтожать добавленные в него обьекты перед уничтожением TDictionary?
3. Если через AddOrSetValue заменяю значение в коллекции удаляет ли TDictionary старый помещённый в это место обьект?

другими словами TDictionary хранит ссылки или клонирует помещённые в него обьекты?

если глянуть в исходники выглядит как хранение ссылки:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

procedure TDictionary<TKey,TValue>.DoAdd(HashCode, Index: Integer; const Key: TKey; const Value: TValue);
var
  P: PItem;
begin
  P := @FItems[Index];
  P^.HashCode := HashCode;
  P^.Key := Key;
  P^.Value := Value;
  Inc(FCount);

  KeyNotify(Key, cnAdded);
  ValueNotify(Value, cnAdded);
end;

но в найденных примерах работы нигде не вижу удаления обьектов в коллекции перед удалением самой коллекции.
Если обьекты не удаляю то
ReportMemoryLeaksOnShutdown := True;
утечек не показывает. Но как то сомнительно это всё.

Спасибо

...

Рейтинг:

0 / 0

13.09.2021, 14:42

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097223

asviridenkov

Участник

Сообщения: 4 058

Рейтинг: 0 / 0

hlopotun,

см doOwnKeys, doOwnValues

...

Рейтинг:

0 / 0

13.09.2021, 14:43

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097228

softwarer

Участник

Откуда: 127.0.0.1

Сообщения: 51 965

Рейтинг: 0 / 0

hlopotun

другими словами TDictionary хранит ссылки или клонирует помещённые в него обьекты?

В Delphi нет универсальной операции клонирования.

...

Рейтинг:

0 / 0

13.09.2021, 14:47

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097233

hlopotun

Гость

softwarer

hlopotun

другими словами TDictionary хранит ссылки или клонирует помещённые в него обьекты?

В Delphi нет универсальной операции клонирования.

если ссылки то как он тогда поступает с обьектом при замене значения коллекции? Удаляет его или нет?

doOwnKeys, doOwnValues это я так понимаю больше про TObjectDictionary, шас почитаю про него.

...

Рейтинг:

0 / 0

13.09.2021, 14:53

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097242

hlopotun

Гость

тут вылазит другая засада:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

var Key : string;
     lIPz: TMyObject:
..............
FIPs := TObjectDictionary<String, TIPZugang>.Create([doOwnsValues]);
.............
lIPz := TMyObject.Create;
lIPz.Id := nN;
lIPz.Time := Now;
FIPs.AddOrSetValue(Key, lIPz);
..............
for Key in FIPs.Keys do begin
     if ..........
        FIPs.Remove(Key); // Тут при попытке удаления из очереди вываливается C000005, в TDictionary тут этого не происходило
     end;
end;
...................

...

Рейтинг:

0 / 0

13.09.2021, 15:23

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097248

hlopotun

Гость

заменил на ExtractPair ошибка ушла, но всеравно непонятно почему она возникала

...

Рейтинг:

0 / 0

13.09.2021, 15:29

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097250

hlopotun

Гость

hlopotun,

зато теперь вываливается C0000005 в конце:

Код: pascal

1.
2.
3.

............
............
FIPs.Free;

где бы хороший пример увидеть ...

...

Рейтинг:

0 / 0

13.09.2021, 15:34

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097251

hlopotun

Гость

а если убираю FIPs.Free в конце ошибки нет и утечек тоже не показывает.

...

Рейтинг:

0 / 0

13.09.2021, 15:37

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097255

peter64

Участник

Сообщения: 233

Рейтинг: 0 / 0

hlopotun,
https://docwiki.embarcadero.com/CodeExamples/Sydney/en/Generics_Collections_TDictionary_(Delphi)

...

Рейтинг:

0 / 0

13.09.2021, 15:42

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097260

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

hlopotun// Тут при попытке удаления из очереди вываливается C000005

Дай угадаю: где-то между точек спрятался вызов lIPz.Free?..
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

13.09.2021, 15:54

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097261

hlopotun

Гость

Dimitry Sibiryakov

hlopotun// Тут при попытке удаления из очереди вываливается C000005

Дай угадаю: где-то между точек спрятался вызов lIPz.Free?..

нет,
вставил перед удалением коллекции
FIPs.Clear;
а уже потом
FIPs.Free;
и ошибка ушла.

...

Рейтинг:

0 / 0

13.09.2021, 15:58

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097268

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

hlopotunвставил перед удалением коллекции
FIPs.Clear;
а уже потом
FIPs.Free;
и ошибка ушла.
А ещё через пять лет, когда этой пляски с бубном станет недостаточно и
говнокод опять упадёт, ты снова будешь на этом форуме говорить "ну это же пять
лет работало, значит ошибки нет". В морг.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

13.09.2021, 16:05

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097289

DmSer

Участник

Откуда: Пенза

Сообщения: 1 490

Рейтинг: 0 / 0

hlopotun

тут вылазит другая засада:

Код: pascal

1.
2.
3.
4.
5.
6.
7.

..............
for Key in FIPs.Keys do begin
     if ..........
        FIPs.Remove(Key); // Тут при попытке удаления из очереди вываливается C000005, в TDictionary тут этого не происходило
     end;
end;
...................

После FIPs.Remove нужно сразу Break делать. Иначе спилишь сук, на котором сидишь.

...

Рейтинг:

0 / 0

13.09.2021, 17:23

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097298

hlopotun

Гость

DmSer,

да, спасибо. там рекурсия после удаления и break. Тут упрощённый вариант.

...

Рейтинг:

0 / 0

13.09.2021, 17:37

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097301

hlopotun

Гость

hlopotun,

хотя рекурсия тут пожалуй тоже идея не очень. Редкий случай когда GOTO пригодится.

...

Рейтинг:

0 / 0

13.09.2021, 17:39

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097308

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

hlopotun

мучают сомнения.

TDictionary не уничтожает ничего. Может уничтожать TObjectDctionary если его об этом попросить

...

Рейтинг:

0 / 0

13.09.2021, 17:43

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097310

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Код: pascal

for Key in FIPs.Keys.ToArray do begin

и никаких рекурсий и GOTO

...

Рейтинг:

0 / 0

13.09.2021, 17:45

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097331

X-Cite

Участник

Откуда: Минск

Сообщения: 1 886

Рейтинг: 0 / 0

Код: pascal

1.
2.
3.
4.
5.

for Key in FIPs.Keys do begin
     if ..........
        FIPs.Remove(Key); // Тут при попытке удаления из очереди вываливается C000005, в TDictionary тут этого не происходило
     end;
end;

Так нельзя писать... Keys это не собственный массив, это указатель на перечислитель.
Вы когда вызываете Remove, у вас массив ключей уменьшается, а перечислитель тот же и в какой-то момент у вас индекс превышает кол-во элементов, либо указывает не на тот элемент, потому что вы же удаляете из массива элементы.
Чтобы так можно писать надо как указали выше

Код: pascal

1.
2.
3.
4.
5.

for Key in FIPs.Keys.ToArray() do begin
     if ..........
        FIPs.Remove(Key); // Тут при попытке удаления из очереди вываливается C000005, в TDictionary тут этого не происходило
     end;
end;

Нужно сделать копию массива ключей и перебирать его, удаляя значения из словаря.
А ошибки в TDictionary не происходило потому что везло, вы же память не освобождали объектов.

...

Рейтинг:

0 / 0

13.09.2021, 18:30

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097494

hlopotun

Гость

всем спасибо,

получается примерно так, проход в обратном порядке и удаление по условию

Код: pascal

1.
2.
3.

for lnI := FIPs.Count - 1 downto 0 do
  if (FIPs.Items[FIPs.Keys.ToArray[lnI ]].Id = XY then
    FIPs.Remove(FIPs.Keys.ToArray[lnI]);

...

Рейтинг:

0 / 0

14.09.2021, 10:31

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097495

rgreat

Участник

Сообщения: 7 255

Рейтинг: 0 / 0

hlopotun,

Песец у тебя тормоза на больших словарях будут.

TDictionary не приспособлен для доступа по номеру.

Это только в моем THashTable есть. :)

...

Рейтинг:

0 / 0

14.09.2021, 10:36

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097498

hlopotun

Гость

rgreat,

тогда так получается:

Код: pascal

1.
2.
3.
4.
5.

for Key in FIPs.Keys.ToArray() do begin
     if (FIPs.Items[Key].Id = XY then
        FIPs.Remove(Key);
     end;
end;

спасибо за замечания

...

Рейтинг:

0 / 0

14.09.2021, 10:44

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097502

hlopotun

Гость

Код: pascal

1.
2.
3.

for Key in FIPs.Keys.ToArray() do
     if (FIPs.Items[Key].Id = XY then
        FIPs.Remove(Key);

(Лишниe Begin End)

...

Рейтинг:

0 / 0

14.09.2021, 10:56

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097510

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

hlopotun

Код: pascal

1.
2.
3.
4.
5.

for Key in FIPs.Keys.ToArray() do begin
     if (FIPs.Items[Key].Id = XY then
        FIPs.Remove(Key);
     end;
end;

Тогда уже так

Код: pascal

1.
2.
3.
4.

for Pair in FIPs.Pirs.ToArray do begin
  if (Pair.Value.Id = XY then
    FIPs.Remove(Pair.Key);
end;

...

Рейтинг:

0 / 0

14.09.2021, 11:13

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097511

hlopotun

Гость

_Vasilisk_

Тогда уже так

Код: pascal

1.
2.
3.
4.

for Pair in FIPs.Pirs.ToArray do begin
  if (Pair.Value.Id = XY then
    FIPs.Remove(Pair.Key);
end;

FIPs.Pirs.ToArray наверное FIPs.Keys.ToArray ?

Pairs по логике но его в TDictionary нет вроде. Может Items ? но его в ToArray не запихнуть

...

Рейтинг:

0 / 0

14.09.2021, 11:23

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097522

Michael Longneck

Участник

Откуда: Москва

Сообщения: 2 317

Рейтинг: 0 / 0

Пройтись по ключам, собрать в список нужные. Потом пройтись по списку нужных и удалить из словаря значения. Если удалять немногие из большого списка то выйдет существенная экономия в памяти да и в скорости в сравнении с ToArray

...

Рейтинг:

0 / 0

14.09.2021, 12:07

| Ответить | Цитировать | Написать

Несколько вопросов по TDictionary

#40097535

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

hlopotun

Pairs по логике но его в TDictionary нет вроде. Может Items ? но его в ToArray не запихнуть

Ошибся. Вот так правильно

Код: pascal

1.
2.
3.
4.

for Pair in FIPs.ToArray do begin
  if Pair.Value.Id = XY then
    FIPs.Remove(Pair.Key);
end;

...

Рейтинг:

0 / 0

14.09.2021, 12:35

| Ответить | Цитировать | Написать

26 сообщений из 26, показаны все 2 страниц

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Несколько вопросов по TDictionary

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=58&tid=2037027]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	42ms
get topic data:	12ms
get forum data:	3ms
get page messages:	65ms
get tp. blocked users:	2ms
others:	273ms

total:	425ms