如何实现自定义 setlength()

Question

我想实现我自己的 MySetLength() 函数，它可能完全作为数组的原始 SetLength()（来自 delphi 6）工作，除了我想将 float 参数作为维度传递（然后，最终，在我的 func 中将其舍入，然后再调用原始 Setlength()）。例如：

procedure MySetLength(var A: Array type; Len1: **double**; Len2...);

代替原来的：

procedure SetLength(var A: Array type; Len1: **Integer**; Len2...);

其中 A 可以有任意数量的维度并且可以是任意类型（字符串或浮点数）

Answer 1

实现它并使其完全像SetLength 那样工作是不可能的，因为SetLength 是一个具有编译器和运行时支持的内在函数。这就是函数能够接受任意数组和字符串类型以及接受任意数量的维度参数的方式。只有编译器供应商才能制作这样的功能。

您真的没有希望生产任何符合问题规范的远程有用的东西。毫无疑问，最好的方法是直接调用SetLength 并将Round 函数应用于任何需要四舍五入的参数。

Answer 2

想到重载和泛型：

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;

如果你使用的 Delphi 版本不支持泛型，你一般不能重载数组元素类型，但如果你使用的元素类型有限，你仍然可以重载数组，例如：

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;

如您所见，为单个String 实现SetLength() 很容易，但为数组实现SetLength() 可能会变得相当复杂，具体取决于您使用的数组类型。此解决方案与您可以在不借助 RTTI 的情况下获取用户代码一样接近，因此您可以直接调用 RTL 的 DynArraySetLength() 函数。

Answer 3

为什么要解决重载或替换内在函数的问题，让事情变得复杂？

为什么不实施您将在替换 SetLength 中使用的舍入策略，并在适当的情况下将其简单地合并到对内部函数的调用中？

SetLength(arr, ArrayDim(dbl));

当然，您保留了 SetLength 的所有功能，包括在必要时将双精度值的维度边界规则应用于多个维度的能力：

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

ArrayDim（或您认为合适的名称）是一个实现舍入策略并返回指定输入（双）。

您为什么要这样做而不是简单地使用 Round() ？

答案是 Delphi 中的 Round() 使用一种称为 Bankers Rounding 的特殊舍入策略。这意味着 n.5 可以向上或向下取整，具体取决于 n 的值。

即使这种舍入策略目前适合您的需求，您也应该实现一个函数来显式应用适合数组维度的特定舍入策略，并在 SetLength() 调用中使用它。 p>

这不仅可以确保您在每种情况下都应用正确的舍入策略，还意味着如果您需要或决定更改数组维度的舍入策略，您只需更改函数 ，而不是所有对 SetLength() 使用该函数的调用。