Как создать уникальную копию record, содержащую вложенные динамические массивы?

[Dmitro25]

Здравствуйте.
У меня в программе имеются записи (records), содержащие динамические типы данных (вложенные динамические массивы, строки).
Иногда возникает необходимость создать полную копию данной записи, чтобы в новой копии все данные были уникальны (т.е. не ссылались на одно место в памяти, как динамические массивы и строки). Это нужно, например, для потокобезопасной работы с данными или для передачи копии данных в процедуру, которая при работе может эти данные менять.
Не работает (как и ожидалось) присваивание записей, не работает также функция Copy.
Подскажите, как сделать копию данных (вручную перебирать уж очень не хочется)?

procedure TForm1.FormCreate(Sender: TObject);
type
  TMT = record
    a: array of record
      b: array of record
        c: byte;
      end;
    end;
  end;
var
  mr1, mr2: TMT;
begin
  setlength(mr1.a, 1);
  setlength(mr1.a[0].b, 1);
  mr1.a[0].b[0].c := 1;
  mr2 := mr1;
//  mr2.a := copy(mr1.a);
  mr1.a[0].b[0].c := 2;
  caption := format('%d %d', [mr1.a[0].b[0].c, mr2.a[0].b[0].c]);
end;

[min@y™]

вручную перебирать уж очень не хочется

А придётся.
Если ещё не поздно переделывать, советую отказаться от такой организации типов и юзать классы и списки.

[Dmitro25]

Сообщение от min@y™

А придётся.
Если ещё не поздно переделывать, советую отказаться от такой организации типов и юзать классы и списки.

Неужели нет такой функции готовой? Задача вроде бы достаточно актуальная. И ведь самое обидное, что компилятор это мог бы делать, т.к. Finalize(record) и SetLength(record.array) он делает корректно, соответственно, разбирается в том какие данные лежат внутри. Можно, конечно, самому что-нибудь сделать с использованием TypeInfo и т.д., но я думал, что, возможно, уже есть готовое решение, которое не нужно перед использованием ещё долго отлаживать.

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