Кто-Нибудь может проверить на 11.3 и более ранних версиях, последнее

Question

Кто-Нибудь может проверить на 11.3 и более ранних версиях, последнее

число в трех нижних строках одно и тоже или нет? var
Dict: TDictionary<Integer, string>;
i, j: Integer;
t: DWord;
begin
Dict := TDictionary<Integer, string>.Create;
Randomize;
t := GetTickCount;
for i := 1 to 2000000 do begin
j := Random(2000000);
if not Dict.ContainsKey(j) then
Dict.Add(j, 'asdfasdf');
end;
Memo1.Lines.Add((GetTickCount - t).ToString + ' ' + Dict.Count.ToString);
t := GetTickCount;

for i in Dict.Keys do
if i mod 2 = 0 then
Dict.Remove(i);
Memo1.Lines.Add((GetTickCount - t).ToString + ' ' + Dict.Count.ToString);
t := GetTickCount;
for i in Dict.Keys do
if i mod 2 = 0 then
Dict.Remove(i);
Memo1.Lines.Add((GetTickCount - t).ToString + ' ' + Dict.Count.ToString);
t := GetTickCount;
for i in Dict.Keys do
if i mod 2 = 0 then
Dict.Remove(i);
Memo1.Lines.Add((GetTickCount - t).ToString + ' ' + Dict.Count.ToString);

#lazarus #programming #russian

0

23.04.2024

6 ответов

33 просмотра

Viktor Akselrod

Thadeous
TObjectList - гибкая замена TDictionary.

эти классы решают абсолютно разные задачи и не являются заменой друг другу

0

12 дней назад

Thadeous

Viktor Akselrod
эти классы решают абсолютно разные задачи и не явл...

можно пожалуйста пример задач, отличных для обоих классов?

0

12 дней назад

Viktor Akselrod

Thadeous
можно пожалуйста пример задач, отличных для обоих ...

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

0

12 дней назад

Сергей

Viktor Akselrod
принципиальное отличие в том, что поиск в словаре ...

Стикер

0

12 дней назад

Viktor Akselrod

Ну мы же его всё-таки обсуждаем

0

12 дней назад