Динамический массив

[gusluk]

Пишу логер к одному прибору. Т.к. кроме простой записи данных в файл, необходимо выводить график и выполнять некоторые действия с данными, их нужно сохранять в память. Чтобы заранее не занимать много памяти решил сделать массив динамическим. Выделяю массив какой-то длинны, когда он заполняется, копирую данные в другой массив, увеличиваю длину первого, копирую данные в первый, убиваю второй. Естественно это занимает кучу времени, и пока все это происходит, теряется некоторое количество данных.
Как этого избежать? Я понимаю что выделение памяти процесс не быстрый, но может есть способы как решить данную задачу?

[phomm]

А данные какие ?
Просто числа, вещественные, например ?
Тогда всё очень просто. Заведите дин массив, примерно того размера какого нужен график, ну например размер графика 1000 пикселей, вот и сделайте тысячу элементов. Заведите переменную, указывающую текущую позицию сохраняемого элемента(для примера Cur), и переменную указывающую текущий размер массива(len). При получении очередного числа в массив проверяйте превысила ли cur len (cur > len) если да, то записывайте в начало массива, и cur присвойте 0 (для дин массивов индексация с 0), и запись производите в ячейку с индексом cur.
Вывод графика можно сделать тоже достаточно просто, если Вы , конечно уже не используете какой-нибудь Tchart :
берем Timage и наносим на него точку с данными из ячейки Cur (по у, ибо функция от времени, а по x - просто край графика), потом делаем image.canvas.copyrect со сдвигом на 1 пиксель, и далее повторяем цикл приема сохранения и вывода очередного значения

Если понадобится поменять размер массива - функция setlength и переменную len не забыть поменять

[gusluk]

График нужен полный, т.е. строится не по последнему отрезку данных, а по всему принятому массиву, по этому весь массив приходится хранить в памяти. А сколько именно будет данных заранее не известно, поэтому и было решено массив делать динамическим. Собственно вся проблема в том, что изменение размера массива через функцию setlength происходит очень медленно, и пока это происходит теряется некоторое количество данных приходящих на порт.

[Аватар]

Выделяю массив какой-то длинны, когда он заполняется, копирую данные в другой массив, увеличиваю длину первого, копирую данные в первый, убиваю второй. Естественно это занимает кучу времени

А зачем? Просто увеличивайте длину первого без всяких копирований

[gusluk]

А разве можно менять длину массива без потери хранящихся в нем данных?

[Аватар]

Сообщение от gusluk

А разве можно менять длину массива без потери хранящихся в нем данных?

SetLength это без проблем делает

[gusluk]

Аватар, большое спасибо! Был уверен что при использовании SetLength, массив обнуляется, и даже мысли не возникло проверить, а так ли это.

[Serge_Bliznykov]

Аватар, большое спасибо! Был уверен что при использовании SetLength, массив обнуляется, и даже мысли не возникло проверить, а так ли это.

только, исходя из опыта, всё таки рекомендую выделять память блоками (например, по 100 или по 500 или 1000 элементов - конкретно подберёте сами число). Ну и храните реальный счётчик, сколько ФАКТИЧЕСКИ элементов в массиве.
Дело в том, что операция выделения памяти - это весьма затратная по времени операция.

сравните по быстродействию:

SetLength(A, 99999999 + 1);
  for i:=0 to High(A) do A[i] := i;

и

  for i:=0 to  99999999 do begin
     SetLength(A, i+1);
     A[i] := i;
  end;

p.s. впрочем. проверьте самостоятельно. Если Вас устроит быстродействие Вашего кода с выделением памяти по одному элементу, то можно и заморачиваться с предложенной мною оптимизацией (выделение памяти блоками)

[phomm]

Setlength, емнип, создает новый массив новой длины, копирует туда из старого, и меняет ссылку со старого на новый массив. Чем меньше сетленсов, тем лучше для производительности

[gusluk]

Думаю что выделение памяти по одному не есть гуд. Сейчас сначала выделяю память на 1000 элементов, при заполнении массива увеличиваю его длину но половину.