Модератор: Модераторы
jwv писал(а):
закинь сюда описание типа.
ZW писал(а):
закинь сюда описание типа.
Control = record
speed:integer;
end;
надо выкидывать элементы из DS.d[i].x[j]
на поля flag* можно не обращать внимания, они не понадобились, скоро выкину
debi12345 писал(а):Перестаньте стучаться в закрытую дверь - используйте связанные списки, типа :
rec1 = record
value: integer;
.. ( your data structures )
prev: ^rec1;
nex: ^rec1;
end;
Тогда удаление будет заключаться в освобождении памяти и корректировке "prev" & "next" соседних елементов - всего 3 команды.
Вообще, есть куча типов, реализующих этот принцип - начиная с TList, они спасут от возни с динамической памятью.
Лично я рекомендую контейнерные типы и методы из библиотеки MSEgui - там есть все, что душе угодно.
ZW писал(а):надо выкидывать элементы из DS.d[i].x[j]
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
type
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: xarray;
flagx:byte;
Y:integer;
end;
DS3 = record
D: array of DS2;
flags: byte;
end;
procedure DeleteItem(var arr: xarray; const index: integer);
var s, d: Pointer;
iCount: integer;
begin
if (index < low(arr)) or (index > high(arr)) then
raise ERangeError.Create('индекс за пределами масива!');
with arr[index] do begin //уменьшаем количество ссылок на масивы path, temp, etemp
path := nil;
temp := nil;
etemp := nil;
end;
if index < high(arr) then begin //если не последний элемент, то перемещаем данные
iCount := SizeOf(DS1);
s := Pointer(Integer(arr) + (index + 1) * iCount); //откуда
d := Pointer(Integer(arr) + index * iCount); //куда
move(s^, d^, iCount * (high(arr)-index));
fillchar(arr[high(arr)],sizeof(DS1),0); //prevent finalize
end;
SetLength(arr, high(arr));
end;
var DS: DS3;
begin
SetLength(DS.D, 1);
SetLength(DS.D[0].x, 3);
DS.D[0].x[0].flagp := 1;
DS.D[0].x[1].flagp := 2;
DS.D[0].x[2].flagp := 3;
DeleteItem(DS.D[0].x, 1); //удаляем второй эл. масива
DeleteItem(DS.D[0].x, 1); //удаляем последний эл. масива
DeleteItem(DS.D[0].x, 0); //удаляем единственный эл. масива
end;
debi12345 писал(а):Вот что сам Мартин (автор MSEgui ) пишет :
==============
To delete an item of a dynamic array of any type do:
...
procedure deleteitem(var value: yourrecarty; const aindex: integer);
...
fillchar(value[high(value)],sizeof(value[0]),0); //prevent finalize
setlength(value,high(value));
...
===============
А зря. Есть в FPC такой баг-перестраховка на Var-аргументах :
--------------
proc ( var arg: array of integer; ..)
begin
..
setlength(arg, value)
..
end;
-------------
будет ругаться, зато :
----------------
type
integerarty = array of integer;
var
..
proc ( var arg: integerarty; ..)
begin
..
setlength(arg, value)
..
end;
-------------
работает на "ура"
Я тоже не сразу понял, почему автор MSEgui всегда объявляет новый тип для открытых массивов.
Код: Выделить всё
proc ( var arg: array of integer; ..) Код: Выделить всё
type
integerarty = array of integer;
proc ( var arg: integerarty; ..) debi12345 писал(а):Вот что сам Мартин (автор 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: yourrecarty; const aindex: integer);
begin
if (aindex < 0) or (aindex > high(value)) then begin
tlist.Error(SListIndexError, aindex);
end;
if high(value) = 0 then begin
value:= nil;
end
else begin
finalize(value[aindex]);
move((pchar(value)+sizeof(value[0])*(aindex+1))^,
(pchar(value)+sizeof(value[0])*aindex)^,
sizeof(value[0])*(high(value)-aindex));
fillchar(value[high(value)],sizeof(value[0]),0);
setlength(value,high(value));
end;
end;
"
Martin
===============
ZW писал(а):Совсем идиотский вопрос: как сделать полную копию динамического массива(или записи) в другую переменную, а не отзеркалировать адрес, по которому хранятся данные?
Код: Выделить всё
type
TMyType = record
a, b: integer;
s: ShortString;
end;
TArrayOfMyType = array of TMyType;
function CloneArrayOfMyType(const Arr: TArrayOfMyType): TArrayOfMyType;
begin
SetLength(Result, length(Arr));
move(Pointer(Arr)^, Pointer(Result)^, SizeOf(TMyType) * length(Arr));
end;
jwv писал(а):
если тип элемента масива простой (т.е. не дин. масив или длинная строка) например integer то можно с помощью move
если в TMyType встречаеться дин.масив или длинная строка то тогда наверное поэлементного копирования не избежать
потому что после move "реальное" количество ссылок на них увеличивается, а "внутренний" счетчик ссылок нет, а когда "внутренний" счетчик до 0 дойдет, память занимаемая дин.масивом или длинной строкой вернётся в пул свободной памяти.