Объединение массивов в Delphi: универсальный подход

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

Введение

При работе с массивами в Delphi иногда возникает необходимость их объединения. Однако стандартные операции, такие как сложение (C := A + B), не применимы к массивам записей. В данной статье мы рассмотрим универсальный подход к решению этой задачи.

Проблема

В языке программирования Delphi нет универсального способа объединения двух массивов в один с помощью простого выражения C := A + B. Это касается и массивов записей, как показано в примере:

TPerson = record
    Birthday: TDate;
    Name, Surname: string;
end;

TPeople = array of TPerson;

var A, B, C: TPeople;
begin
    C := A + B; // Операция не возможна
end;

Подходы к решению

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

Ручное объединение

Можно написать процедуру, которая будет копировать элементы из одного массива в другой:

procedure Sum(const A, B: TPeople; var C: TPeople);
var
    i, nA, nB: Integer;
begin
    nA := Length(A);
    nB := Length(B);
    SetLength(C, nA + nB);
    for i := 0 to nA - 1 do
        C[i] := A[i];
    for i := 0 to nB - 1 do
        C[i + nA] := B[i];
end;

Использование TDynArray

Можно использовать обертку TDynArray, которая предоставляет удобные методы для работы с динамическими массивами:

procedure AddToArray(var A: TPeople; const B: TPeople);
var
    DA: TDynArray;
begin
    DA.Init(TypeInfo(TPeople), A);
    DA.AddArray(B); // A := A + B
end;

Использование TList

Еще один способ — использование коллекции TList, которая позволяет выполнять операции добавления элементов:

var A, B, C: TList<TPerson>;
begin
    C.Clear;
    C.AddRange(B);
    C.AddRange(C);
end;

Перегрузка операторов

Можно создать свой класс, который будет использовать перегрузку операторов для объединения массивов:

TTurboArray = record<T>
    private
        FItems: array of T;
    public
        class operator Add(a, b: TTurboArray<T>): TTurboArray<T>;
        property Count: Integer read GetCount write SetCount;
        property Items[Index: Integer]: T read GetItem write SetItem; default;
end;

Быстрое "обменное" объединение

Существует метод "обменного" объединения, который позволяет избежать копирования элементов, но он может быть небезопасен в многопоточной среде:

function ConcatPeople(const A, B: TPeople): TPeople;
var
    Temp: TPeople;
    ALen, BLen: Integer;
begin
    Result := Copy(A);
    BLen := Length(B);
    if BLen = 0 then
        Exit;
    ALen := Length(A);
    Temp := Copy(B);
    SetLength(Result, ALen + BLen);
    Move(Temp[0], Result[ALen], BLen * SizeOf(B[0]));
    FillChar(Temp[0], BLen * SizeOf(B[0]), 0);
end;

Заключение

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

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

Объединение массивов в Delphi является нестандартной операцией, требующей специальных методов и подходов, так как обычные операции сложения, применимые к числовым типам, не подходят для массивов, включая массивы записей.

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

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

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