Перебор

[maxsept]

создаёться большое кол-во объектов, порядка 10^6
все они забиваются в один массив

map: array of PStruct;

PStruct = record 
 x,y,z:smallint;
end;

для добавления нового объекта нужно условие что координаты не совпадают ни с одним другим

то есть процедура примерно такая :

procedure Map.add(_type: Byte; x, y, z: SmallInt);
var
  i:Integer;
begin
    for i:=0 to objectCount-1 do
      if (_map[i].getx=x) and (_map[i].getY=y) and (_map[i].getZ=z) then
        exit;
  inc(objectCount);
  SetLength(_map,objectCount);
  _map[objectCount-1]:=Object.Create(_type,x,y,z);
end;

всё бы ничего но когда объектов уже порядка 10к начинает заметно возростать время создание нового
как можна все ето дело оптимизировать ?

[kangreon]

Первое что приходит в голову, вынести поиск в отдельный поток.

Можно попробовать еще такой вариант: хранить данные в отсортированном виде, и для нахождения повторяющегося элемента использовать бинарный поиск. Но тут еще все продумать нужно. Прирост в скорости должен быть. Однако, появится новая проблема. Добавление элемента в отсортированный массив.

[Прик]

Чтобы не зависеть от количества итераций при поиске дубликатов значений, можно записывать значения x, y и z в базу данных с составным по этим полям индексом.
Время выборки при поиске дубликатов, практически, не будет зависеть от количества объектов.
Для этого годятся СУБД: Firebird, MS SQL Server, PostgriSQL, Oracle, ...

[maxsept]

Всем спасиб, вобщем проблема была не совсем в этом, код жутко тормозила команда SetLength
сначала считаю кол-во объектов которое буду создавать потом пользуюсь 1 раз командой SetLength, 20k объетков от 8000мс(до) до 30мс(после)...