Глубокое копирование динамических массивов в Delphi без использования стандартной функции Copy

Delphi , Синтаксис , Массивы

Вопрос копирования динамических массивов в Delphi может быть довольно сложным, особенно если требуется выполнить глубокое копирование. В стандартной библиотеке Delphi для этих целей предусмотрена функция Copy, однако она имеет некоторые ограничения. В частности, она требует наличия информации о типе данных, что может быть не всегда доступно, например, когда у нас есть только указатель на динамический массив и ссылка на тип информации.

В этом материале мы рассмотрим, как можно создать рутину для глубокого копирования динамических массивов, не используя функцию Copy. Это может быть полезно в ситуациях, когда доступны только указатель на массив и ссылка на тип информации.

Проблема

Разработчик столкнулся с задачей создания рутины для глубокого клонирования динамических массивов в Delphi 2007. Проблема заключалась в том, что у него был только указатель на динамический массив вместе с ссылкой на тип информации, и он не мог использовать функцию Copy, так как она требует заполнения информации о типе.

Решение

Для решения этой проблемы разработчик использовал процедуру _CopyArray, определенную в модуле System. Чтобы вызвать эту процедуру, необходимо заменить символ подчеркивания на символ @ и обратиться к ней через пространство имен system. Пример кода, демонстрирующего это:

procedure CopyArray(dest, source, typeInfo: Pointer; cnt: Integer);
asm
    PUSH    dword ptr [EBP+8]
    CALL    system.@CopyArray
end;

Далее, в функции TMessageRTTI.CloneDynArray реализован алгоритм глубокого копирования:

function TMessageRTTI.CloneDynArray(Source: Pointer; T: TTypeRecord): Pointer;
var
    TypeInfo: TTypeRecord;
    L:        Integer;
    PObj:     PObject;
    PArr:     PPointer;
begin
    Assert(T.TypeKind = tkDynArray);

    // Установка размера массива
    Result := nil;
    L := Length(TIntegerDynArray(Source));
    if L = 0 then Exit;
    DynArraySetLength(Result, T.TypeInfo, 1, @L);

    // ... (дальше следует код обработки различных типов данных)

    if Assigned(TypeInfo) then begin
        case TypeInfo.TypeKind of
            tkClass: begin
                // Копирование объектов
                ...
            end;
            tkDynArray: begin
                // Копирование вложенных массивов
                ...
            end;
            else
                // Копирование с использованием _CopyArray
                CopyArray(Result, Source, TypeInfo.TypeInfo, L);
        end;
    end else begin
        // Простое копирование данных
        Move(Source^, Result^, L * T.ElementSize);
    end;
end;

Альтернативное решение

В комментариях к вопросу было предложено использовать стандартную функцию копирования, так как процедуры с символом подчеркивания используют "магию компилятора" для предоставления функциональности. Рекомендуется использовать функцию Copy вместо _CopyArray, is вместо _IsClass и так далее.

Подтвержденный ответ

Согласно подтвержденному ответу, напрямую вызывать процедуры с символом подчеркивания из кода в других единицах невозможно. Это связано с тем, что при компиляции модулей System.pas и SysInit.pas используется недокументированный переключатель компилятора, который преобразует символы подчеркивания в символ @. Таким образом, _CopyArray становится @CopyArray и его можно вызвать с помощью блока BASM, но других способов прямого вызова не существует.

Заключение

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

Создано по материалам из источника по ссылке.

'Context' Описание процесса создания рутины для глубокого копирования динамических массивов в Delphi без использования стандартной функции Copy.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::