Упрощение кода для добавления столбцов в виртуальное дерево строк в Delphi: передача данных напрямую

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

Упрощение кода для добавления столбцов в виртуальное дерево строк в Delphi

Вопрос пользователя заключается в том, можно ли упростить код для добавления столбцов в виртуальное дерево строк (VirtualStringTree) в Delphi, убрав глобальные массивы и дополнительные процедуры, и передать данные напрямую, например, так:

SetColumns(VST.Header.Columns, (#, 'First name', 'Last name', 'Address'), (50, 200, 200, 500));

Решение проблемы

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

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

procedure SetColumns(vColumns: TVirtualTreeColumns; const vNames: array of string; const vWidths: array of integer);
var
  i: Integer;
begin
  if Length(vNames) <> Length(vWidths) then
    raise Exception.Create('vNames and vWidths should have the same number of elements!')
  else
  begin
    vColumns.Clear;
    for i := 0 to High(vNames) do
      with vColumns.Add do
      begin
        Text := vNames[i];
        Width := vWidths[i];
      end;
  end;
end;

Теперь можно вызвать SetColumns следующим образом:

SetColumns(VST.Header.Columns, ['#', 'First name', 'Last name', 'Address'], [50, 200, 200, 500]);

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

SetColumns(VST.Header.Columns, TArray<String>.Create('#', 'First name', 'Last name', 'Address'), TArray<Integer>.Create(50, 200, 200, 500));

Дополнительная информация

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

Альтернативный ответ для записи с использованием записей

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

Type
  TMyRecord = record
    myName: string;
    myValue: Integer;
    class function Init(const aName: string; aValue: Integer): TMyRecord; static;
  end;

class function TMyRecord.Init(const aName: string; aValue: Integer): TMyRecord;
begin
  Result.myName := aName;
  Result.myValue := aValue;
end;

procedure SetValues2(const vArr: array of TMyRecord);
begin
  // Действия с массивом записей
end;

SetValues2([TMyRecord.Init('a', 1), TMyRecord.Init('b', 2), TMyRecord.Init('c', 3)]);

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

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

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

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

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

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