Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.14;
Скачать: CL | DM;

Вниз

Ссылка?   Найти похожие ветки 

 
qadeveloper2   (2007-09-20 22:51) [0]

Нет сейчас delphi, что бы проверить.

type
 TMyArrays = record
    str: array of string;
    int: array of Integer;
 end;

 TMyType = array of TMyArrays;

var
 MyType1: TMyArrays;
 MyType2: TMyArrays;
begin
 SetLength(MyType1, 10);
... тут любые операции по заполнению MyType1.
...
 MyType2 := MyType1;


Что происходит при последнем присваивании: копируется Type1 в Type2, или у Type2 будет просто ссылаться на Type1?

Если это будет ссылка, то как избежать появления ссылки, сделать MyType2 независимым источником?


 
homm ©   (2007-09-20 22:56) [1]

вызывается @DunArrayAsg, а в нем, судя по количеству выплненых инструкций, копирование ссылки.


 
homm ©   (2007-09-20 22:57) [2]

В общем тебе классы нужны, с полной обработкой создания и уничтожения, и перекрытием Assign.

> var
> MyType1: TMyArrays;
> MyType2: TMyArrays;

Кстати, здесь ты наверное имел ввиду
var
MyType1: TMyType;
MyType2: TMyTypes;


 
Anatoly Podgoretsky ©   (2007-09-20 23:03) [3]


> Что происходит при последнем присваивании: копируется Type1
> в Type2, или у Type2 будет просто ссылаться на Type1?

Копируется ссылка и увеличивается счетчик.
Для создания копии надо вручную копировать данные из структуры.
Подумай над [1]


 
qadeveloper2   (2007-09-21 08:34) [4]

Спасибо. Т.е. все же получается, что единственный способ сделать отдельную копию - это вручную?

Может и бред, а если запись объявить, как packed а потом сделать move для массива?


 
qadeveloper2   (2007-09-21 08:52) [5]

По поводу класса, не понял: что лучше сделать класс под хранение этой информации?



Страницы: 1 вся ветка

Текущий архив: 2007.10.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
15-1190021047
GeLLeR
2007-09-17 13:24
2007.10.14
Где можно скачать


2-1189922338
SKIPtr
2007-09-16 09:58
2007.10.14
Обновить список в ListBox


15-1189622431
Инс
2007-09-12 22:40
2007.10.14
Подскажите микросхему


2-1190372911
webpauk
2007-09-21 15:08
2007.10.14
Array of TmyRec


15-1189762734
vladislavmsk
2007-09-14 13:38
2007.10.14
Специальный TGroupBox