Как реализовать собственный setlength()

Будет невозможно реализовать это и заставить работать точно так же, как SetLength, потому что SetLength — это встроенная функция, которая поддерживает компилятор и среду выполнения. Вот как функция может принимать произвольные типы массивов и строк, а также принимать произвольное количество аргументов измерения. Только поставщик компилятора может сделать такую ​​функцию.

У вас действительно нет надежды создать что-то отдаленно полезное, что соответствует спецификации вопроса. Бесспорно лучший подход — вызвать SetLength напрямую и применить функцию Round к любым аргументам, которые необходимо округлить.

На ум приходят перегрузка и дженерики:

type
  TMyHelper = class
  public
    class procedure SetLength(var A: String; Len: Double); overload; static;
    class procedure SetLength<T>(var A: TArray<T>; Len: Double); overload; static;
    class procedure SetLength<T>(var A: TArray<TArray<T>>; Len1, Len2: Double); overload; static;
    // as so on...
  end;

class procedure TMyHelper.SetLength(var A: String; Len: Double);
var
  iLen: Integer;
begin
  iLen := ...; // round Len as needed...
  System.SetLength(A, iLen);
end;

class procedure TMyHelper.SetLength<T>(var A: TArray<T>; Len: Double);
var
  iLen: Integer;
begin
  iLen := ...; // round Len as needed...
  System.SetLength(A, iLen);
end;

class procedure TMyHelper.SetLength<T>(var A: TArray<TArray<T>>; Len1, Len2: Double);
var
  iLen1, iLen2: Integer;
begin
  iLen1 := ...; // round Len1 as needed...
  iLen2 := ...; // round Len2 as needed...
  System.SetLength(A, iLen1, iLen2);
end;

// and so on...

var
  s: string;
  a1: TArray<Integer>;
  a2: TArray<TArray<String>>;
begin
  TMyHelper.SetLength(s, 10);
  TMyHelper.SetLength<Integer>(a1, 10);
  TMyHelper.SetLength<String>(a2, 5, 10);
end;

If you are using a version of Delphi that does not support Generics, you can't overload on array element types generically, but you can still overload on arrays if the element types you use is limited, eg:

type
  TInteger1DimArray = array of Integer;
  TInteger2DimArray = array of TInteger1DimArray;

  TString1DimArray = array of String;
  TString2DimArray = array of TString1DimArray;

  // and so on...

  TMyHelper = class
  public
    class procedure SetLength(var A: String; Len: Double); overload; static;
    class procedure SetLength(var A: TInteger1DimArray; Len: Double); overload; static;
    class procedure SetLength(var A: TInteger2DimArray; Len1, Len2: Double); overload; static;
    class procedure SetLength(var A: TString1DimArray; Len: Double); overload; static;
    class procedure SetLength(var A: TString2DimArray; Len1, Len2: Double); overload; static;
    // as so on...
  end;

class procedure TMyHelper.SetLength(var A: String; Len: Double);
var
  iLen: Integer;
begin
  iLen := ...; // round Len as needed...
  System.SetLength(A, iLen);
end;

class procedure TMyHelper.SetLength(var A: TInteger1DimArray; Len: Double);
var
  iLen: Integer;
begin
  iLen := ...; // round Len as needed...
  System.SetLength(A, iLen);
end;

class procedure TMyHelper.SetLength(var A: TInteger2DimArray; Len1, Len2: Double);
var
  iLen1, iLen2: Integer;
begin
  iLen1 := ...; // round Len1 as needed...
  iLen2 := ...; // round Len2 as needed...
  System.SetLength(A, iLen1, iLen2);
end;

class procedure TMyHelper.SetLength(var A: TString1DimArray; Len: Double);
var
  iLen: Integer;
begin
  iLen := ...; // round Len as needed...
  System.SetLength(A, iLen);
end;

class procedure TMyHelper.SetLength(var A: TString2DimArray; Len1, Len2: Double);
var
  iLen1, iLen2: Integer;
begin
  iLen1 := ...; // round Len1 as needed...
  iLen2 := ...; // round Len2 as needed...
  System.SetLength(A, iLen1, iLen2);
end;

// and so on...

var
  s: string;
  a1: TInteger1DimArray;
  a2: TString2DimArray;
begin
  TMyHelper.SetLength(s, 10);
  TMyHelper.SetLength(a1, 10);
  TMyHelper.SetLength(a2, 5, 10);
end;

As you can see, implementing SetLength() for a single String is easy, but implementing SetLength() for arrays can get quite complex, depending on the type of arrays you use. This solution is about as close as you can get in user code without resorting to RTTI so you can call the RTL's DynArraySetLength() function directly.

Зачем усложнять вещи, пытаясь обойти проблемы с перегрузкой или заменой встроенного ?

Почему бы не реализовать стратегию округления, которую вы использовали бы в своей замене SetLength, и просто включить ее в свои вызовы встроенной функции, где это уместно?

SetLength(arr, ArrayDim(dbl));

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

SetLength(multiDimArr, ArrayDim(dblDim1), ArrayDim(dblDim2));

Где ArrayDim (или имя, которое вы считаете нужным) — это функция, которая реализует вашу стратегию округления и возвращает соответствующее измерение массива (целое число) для указанного входного значения (двойное значение). ).

Почему вы должны сделать это, а не просто использовать Round()?

Ответ заключается в том, что Round() в Delphi использует особую стратегию округления, называемую Округление банкиров. Это означает, что n.5 можно округлить в большую сторону или в меньшую сторону, в зависимости от значения n.

Даже если эта стратегия округления подходит для ваших нужд в настоящее время, вы должны реализовать функцию для явного применения конкретной стратегии округления, подходящей для размеров массива, и использовать ее в своих вызовах SetLength().

Это не только гарантирует, что вы применяете правильную стратегию округления в каждом случае, но также означает, что если вам когда-нибудь понадобится или вы решите изменить стратегию округления для размеров массива, вам нужно будет только изменить свою функцию, а не все вызовы SetLength() с использованием этой функции.