2

Есть вот такой record с массивом:

  TMyVertex2Array = array of TMyVertex2; // Объявление типа массива

  TMyPolygon = record
    Points: TMyVertex2Array;
    class function New(aX1, aY1, aX2, aY2, aX3, aY3: Single): TMyPolygon; static;
    // ... и еще куча полезных методов и операторов
    procedure Offset(aX, aY: Single);
  end;

Далее в коде происходит примерно следующее:

var
  a, b: TMyPolygon;
begin
  a := TMyPolygon.New(0,0,1,1,2,2);
  b := a;
  b.Offset(10, 10);

  Assert(a.Points[0].X = 0); // <<-- Ошибка, т.к. изменился и массив а.Points

То есть технически, Делфа копирует record, но т.к. массив это всего лишь указатель, то копируется указатель, а сам массив остается тот же (общий для двух record).

Как, используя новые возможности Delphi, правильно скопировать record с массивом при присвоении (b := a), чтобы массив Points тоже скопировался? (т.н. глубокое копирование) или же решить проблему другим способом?

5
  • кстати, почему static new, а не конструктор?
    – teran
    5 апр 2018 в 7:31
  • да еще с 2009й версии, емнип, появились конструкторы у записей. вместе с процедурами/функциями
    – teran
    5 апр 2018 в 7:33
  • @teran в давние времена вот с этим согласился и всегда для record использую New (stackoverflow.com/a/42119979/77764). Если запостите вопрос/ответ в чем существенная разница и плюсы минусы вариантов с конструктором или статик нью, то накину +75 репы.
    – Kromster
    5 апр 2018 в 7:35
  • дак и нет разницы. но точка зрения, что конструктор в записях вносит некоторые непонятки и может запутать разработчика имеет место быть, т.к. не всегда сразу ясно, где класс, а где запись. Использовать это в коде, или нет тут дело каждого. В самих делфях - используется. К примеру тот же TRttiContext.Create. я и не настаиваю на использовании, просто на глаза попалось.
    – teran
    5 апр 2018 в 7:44
  • Вообще есть интересная статья на эту тему, если я всё правильно понял :)
    – Alekcvp
    5 апр 2018 в 13:18

2 ответа 2

2

Первый метод:

b := Copy(a, 0, MaxInt);

Второй метод (при вызове SetLength на динамическом массиве, автоматически делается его копия):

b := a; 
SetLength(b, Length(a));
3
  • Выглядит костыльно, да и забыть легко, какие структуры как копировать. Напрашивается по крайней мере обернуть это в b := a.GetCopy или b.Assign(a) и как-то защититься от прямого копирования тогда ..
    – Kromster
    5 апр 2018 в 6:30
  • @Kromster Ну да, всё надо делать руками. Магического метода глубокого копирования нету.
    – zed
    5 апр 2018 в 6:55
  • В принципе еще есть намеки на то, чтобы как-то прикрутить/использовать RefCount у массива, и если он больше 2, то либо сразу ругаться, либо что-то еще делать. В общем мне нужен код с "защитой от дурака". =)
    – Kromster
    5 апр 2018 в 7:09
1

Альтернативный вариант - сделать редизайн record и явно выделить два метода с соответствующими поведениями (изменение и создание глубокой копии):

  TMyPolygon = record
    Points: TMyVertex2Array;
    procedure Offset(aX, aY: Single); // Изменяет текущий record
    function GetOffset(aX, aY: Single): TMyPolygon; // Отдает новый record
  end;

А код сделать вот таким:

a := TMyPolygon.New(0,0,1,1,2,2);
b := a.GetOffset(10, 10);
2
  • и почему бы в редизайне не сделать метод clone?
    – teran
    5 апр 2018 в 7:29
  • @teran Это тоже вариант, но как и все остальные - он тоже в какой-то степени костылен, т.к. легко забыть/перепутать, какие record надо клонировать при присвоении, а какие - нет.
    – Kromster
    5 апр 2018 в 7:31

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.