Еще раз здравствуйте мастера!!! Сегодня я уже второй раз пишу в форум!!! У меня такой вопрос: у меня есть два динамических массива, первый из них уже забит числами, если я преравняю второй массив к первому, то эти два массива приравняются. Если же я попытаю изменять числа во втором массиве, то числа будут изменяться и в первом массиве!!! Как это избежать? То есть мне надо приравнять два массива, которые динамически созданные, и чтоб при изменении чисел в одном массиве в другом они не изменялись. Я конечно же мог это сделать через цикл, но если элементов в массивах будут под 100000, то будет тормоза с компом. Мастера, асы в этом деле помогите ламаку!!!

Код

var       i:integer;      KTIt,KTI:array of Integer; begin  Setlength(KTI,10); //заполняю масив числами  For i:=Low(KTI) To High(KTI) do        KTI[i]:=i; //хочу преравнять один масив к другому делаю так KTIt:=KTI; //После два этих массива будут одинаковы ... KTI:=nil; KTIt:=nil; end;

Это сообщение отредактировал(а) Alex - 24.5.2005, 00:45

Код

Var       I: Integer;       KTIt: Array Of Integer;   KTI: Array Of Integer;     Begin       SetLength(KTI, 10);   SetLength(KTIt, 10);       For I := Low(KTI) To High(KTI) Do          KTI[I] := I;       For I := Low(KTIt) To High(KTIt) Do          KTIt[I] := KTI[I];   KTI := NIL;       KTIt := NIL;     End;

Delphi под рукой у меня нет. Проверь!
Если встретилось вот такое объявление:

Код

KTIt: Array Of Integer;   KTI: Array Of Integer;

то массивы будут разными, и присваивание будет запрещено.

Это сообщение отредактировал(а) Rrader - 24.5.2005, 01:02

Код

type ArrayOfInteger:Array of Integer; Var       I: Integer;       KTIt, KTI: ArrayOfInteger;     begin   Setlength(KTI,10);  //заполняю масив числами  For i:=Low(KTI) To High(KTI) do        KTI[i]:=i;  Setlength(KTIt,Length(KTI));  KTIt:=KTI; end;

ДЫМ После присвоение динамических массиов они будут ссылаться на одни данные, а нужно получить копию исходного массива.


Grol

Можешь так скопировать(но не думай что при этом все без циклов работает )

Код

uses ..., Math; procedure TForm1.Button1Click(Sender: TObject); var   a, b: array of integer;   MinLen: integer; begin   SetLength(a, 2);   SetLength(b, 3);   a[0] := 10;   a[1] := 20;   MinLen := IfThen((Length(a) < Length(b)), Length(a), Length(b));   CopyMemory(@b[0], @a[0], MinLen * SizeOf(Integer));   a[0] := 15;   ShowMessage(IntToStr(b[0])); end;

<Spawn>
Уверены, что элементы дин. массивов располагаются в памяти последовательно?

Alix Думаю, что последоваетльно, учитывая, что рельно вызывается функция из модуля System под названием DynArraySetLength, которая использует в своей работе GetMem и ReallocMem, а они выделяют неразрывные блоки памяти.

Цитата(Grol @ 24.5.2005, 00:32)

Если же я попытаю изменять числа во втором массиве, то числа будут изменяться и в первом массиве!!!

Это потому, что ты приравниваешь не сами массивы, а их указатели.
Поэтому по сути два разных массива рулят одной и той же областью памяти.

Цитата(Alix @ 24.5.2005, 06:29)

Уверены, что элементы дин. массивов располагаются в памяти последовательно?

Агу. А, если в памяти не будет целого фрагмента, способного вместить запрашиваемый объем, то массив не получит запрашиваемого размера.

Сдается мне, что можно сделать все проще:
не так:

Код

KTIt:=KTI;

А так:

Код

Setlength(KTI,10);   move(KTI[0], KTIt[0], 10);

А хелп читать не пробовали?

Цитата

In contrast, to make an independent copy of a dynamic array, you must use the global Copy function: Код var   A, B: array of Integer; begin   SetLength(A, 1);   A[0] := 1;   B := Copy(A);   B[0] := 2; { B[0] <> A[0] } end;