← →Демо ©
(2010-07-03 17:47)
[18]
> Jeer © (03.07.10 17:16) [12]
> > Демо © (03.07.10 16:53) [11]Иди покури "травку", прежде
> чем советовать.
Бредить не надо? Ок?
> Amoeba_ (03.07.10 17:18) [14]
> > Демо © (03.07.10 16:53) [11]> для динамического массива,
> кроме этого, нужно ещё выполнить> > SetLength(B,Length(B));
> Не надо.Читаем справку:If X and Y are variables of the same
> dynamic-array type, X :=Y points X to the same array as
> Y. (There is no need to allocate memory for X before performing
> this operation.)
При присвоении переменных динамических массивов происходит копирование ссылки на массив.
+ Рекомендую перечитать справку по SetLength.
procedure TForm1.btnCopyDinArraysClick(Sender: TObject);
type
TTestArr = array of byte;
var
vB1: TTestArr;
vB2: TTestArr;
begin
SetLength(vB1, 3);
vB1[0] := 1;
vB1[1] := 2;
vB1[2] := 3;
vB2 := vB1;
SetLength(vB2, Length(vB2)); //Здесь память будет перераспределена и все элементы скопированы.
vB1[0] := 10;
end;
Как скопировать один массив массивов в другой? Найти похожие ветки
← →