Move для record. Можно ли?

← →
olookin © (2005-01-29 19:52) [0]

Можно ли выполнять:

type TCollectionGroup = record
Item: array of TCollectionItem;
Name: string;
end;

var Group: array of TCollectionGroup;

procedure DeleteGroup(GroupIndex: integer);
begin
Move(Group[GroupIndex+1],Group[GroupIndex],4*(Length(Group)-GroupIndex-1));
Group[Length(Group)-1]:=nil;
SetLength(Group,Length(Group)-1);
end;

?

← →
icWasya © (2005-02-01 19:39) [1]

посмотри в исходниках VCL (кажись Classes.pas), как сделано что-то подобное в TStringList"е

← →
GuAV © (2005-02-01 22:09) [2]

Счётчики ссылок в Item и Name не будут увеличены при копировании через Move, однако будут уменьшены при SetLength.

Чтобы это работало, следует заменить Group[Length(Group)-1]:=nil; (разве это компилится ? ) на FillChar( Group[Length(Group)-1], SizeOf(TCollectionGroup), 0); это обнулит указатели без уменьшения счётчиков ссылок и счётчики уже не будут уменьшены при SetLength.

почему 4 а не SizeOf(TCollectionGroup) ? Тем более это будет не 4, а 8 ?

Да, ещё, следует освободить удаляемый элемент. Для этого его можно поставить удаляемым в SetLength.

procedure DeleteGroup(GroupIndex: integer);
var tmp: TCollectionGroup
begin
tmp := Group[GroupIndex];
Move(Group[GroupIndex+1], Group[GroupIndex], SizeOf(TCollectionGroup)*(Length(Group)-GroupIndex-1));
Move(tmp, Group[GroupIndex], Group[Length(Group)-1], SizeOf(TCollectionGroup));
SetLength(Group, Length(Group)-1);
end;

GuAV © (01.02.05 22:09) [2]
Тем более это будет не 4, а 8 ?
И не 8, а зависит от установок.
Тем более это будет не 4, а 8 ?

Move для record. Можно ли? Найти похожие ветки