FreePascal.ru

Объясните пожайлуста такой момент: программа при достижении примерно чуть больше 2 Гбайтов вываливается с EOutOfMemory : Out of memory.
Что нибудь можно с этим сделать?

Mirage писал(а):Эффективное всеучитывающее копироваание дин. массива осуществляет функция Copy. RTFM наконец.

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

если тип элемента масива простой (т.е. не дин. масив или длинная строка) например integer то можно с помощью move



Погоди, в случае статичных массивов должно работать присваивание



если в TMyType встречаеться дин.масив или длинная строка то тогда наверное поэлементного копирования не ...

Cheb писал(а):А чем вас не устраивает банальная перестановка элемента с хвоста на место освобождаемого? Или порядок важен?

Желательно сохранить порядок.

Совсем идиотский вопрос: как сделать полную копию динамического массива(или записи) в другую переменную, а не отзеркалировать адрес, по которому хранятся данные?

Вот что сам Мартин (автор MSEgui ) пишет :


Martin
==================
Simplified version without dynarrayelesize:

"
type
integerarty = array of integer;
yourrecty = record
a: integer;
b: string;
c: integerarty;
end;
yourrecarty = array of yourrecty;

procedure deleteitem(var value ...

Перестаньте стучаться в закрытую дверь - используйте связанные списки, типа :

rec1 = record
value: integer;
.. ( your data structures )
prev: ^rec1;
nex: ^rec1;
end;

Тогда удаление будет заключаться в освобождении памяти и корректировке "prev" & "next" соседних елементов - всего 3 команды ...

закинь сюда описание типа.

Control = record
speed:integer;
end;

DS1 = record
path:array of integer;
flagp:byte;
temp:array of integer;
etemp:array of Control;
end;
xarray = array of DS1;//это для процедуры удаления
DS2 = record
x:array of DS1;
flagx:byte;
Y ...

работает нормально только при удалении последнего элемента:(
Вполне нормальная ситуация, если данные в памяти расположатся фрагментарно или в куче. "Move" сработает корректно только если для непрерывных областей. Поэтому позаботьтесь о минимальном размере данного массива - вместо больших элементов ...

работает нормально только при удалении последнего элемента:(

Нет, я ему вместо integerarty прописал array of integer


А зря. Есть в FPC такой баг-перестраховка на Var-аргументах :

------------------

работает на "ура"


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

Мда... до этого я бы фиг додумался ...

SergKam писал(а):а может компилятор не понимает что такое integerarty; ?

Нет, я ему вместо integerarty прописал array of integer

debi12345 писал(а):
А если перевести на массив указателей : array of ^x ?

"Там" есть такая же процедура для указателей. Хотя и возня с динамической памятью, но обычно так и делается.

А как перевести и как с ним работать?

Спасибо за информацию. Но неполучается.
У меня такая структура данных:
p[j].x[y]
То есть p : array of x;

Убирать надо элемент x (то есть массив) из p[j]
Исходная процедура такая:
procedure deleteitem(var dest: integerarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then ...

Есть запись в которой присутствует динамический массив, периодически необходимо из массива выносить элементы по какомуто критерию. Возникает вопрос каким наиболее эффективным способом это сделать?
У кого нибудь есть идеи?